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MODULE RM3GET (LANGUAGE eis ), 
IDENT = *v04-000' 


BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WI 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
™ CORPORAT I i NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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2 02 
é 0 e+ 
0 : 
H 3 FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 
3 03 ! Abstract: ; : 
3 03 ; This module implements the get and find record operations 
; og } for the indexed file organization. 
3 03 : 
; th : ENVIRONMENT : 
: Be VAX/VMS OPERATING SYSTEM 
4 04 leo 
4 04 
4 04 ; 
: oe : AUTHOR: E. H. MARISON CREATION DATE: 18-APR-78 13:11 
& 04 ; 
: on , MODIFIED BY: 
5 05 : V03-025 JwT0193 | Jim Teague 13-Aug-1984 
5 05 : Fix bug in re-accessing records after they have been 
5 05 ‘ found to be locked. If a process had done a $GET on 
5 05 ; a record, then a SRELEASE, and then had to wait to 
5 05 ; $GET the record a second time, too much context was 
5 05 : still around from the first $GET. This caused problems 
5 05 : when the pougns otter record had been deleted. RMS 
5 05 : treated the SGET + SRELEASE + S$GET case just like 


| RM3GET 
00 
; 8 058 1! 
: 9 $039 1; 
; @& BRed 7; 
6) 061 1! 
; 6 pdo¢ 7 ! 
is * 0065 1! 
> 64 00646 1! 
s 65 0065 1! 
; 66 0066 1! 
: oF 0067 1! 
; 68 0068 1! 
3 9 00 1; 
; 0 00 1! 
3 71 0071 1! 
3 7 0072 1! 
: 7 0075 1! 
: 74 0074 1! 
: 75 0075 1! 
3 76 0C76 1! 
; 77 0077 1! 
; 78 0078 1! 
; 79 0079 1! 
;: & 0080 1! 
; 0081 1! 
; 0082 1! 
; 0085 1! 
: B46 0084 1! 
; €5 0085 1! 
; © 0086 1! 
: Or 0087 1! 
;s 6488 0088 1! 
.. 0089 1! 
; 90 0090 1! 
; 91 0091 1! 
; 0092 1! 
; 9 0093 1! 
; 0094 1! 
, 0095 1! 
; 0096 1! 
te 0097 1! 
; 0098 1! 
; 99 0099 1! 
; 100 0100 1! 
: 101 gi3s 1! 
s 02 4 73 
s 103 0103 1! 
; 104 0106 1! 
s 105 0105 1! 
: 106 0106 1! 
. jor 0107 1! 
; 108 0108 1! 
: 109 0109 1! 
; 110 0110 1! 
3 111 0111 1! 
: 112 Big 1! 
s 113 011 1} 
: 114 0114 1! 
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14-Sep-1984 13:01:24 DISKSVMSMASTER: CRMS.SROJRM3GET.B32;1 
a SFIND + SGET case, and would end up with the wrong 


record. 


Also, improve SGET/SFIND performance. Leave the 
infinite GET_RECORD loop immediately if GET_RECORD 
returns an unqualified success status. formerly, 
RMS was forced to grind $hrough an unbelievably 
perverted JF test EVERY TIME it returned from 


TSK0001 Tamar Krichevsky 15-Jun-1983 

Change addressing mode to long relative for RMSRU_RECLAIM. 
MCNOO15 Maria del C. Nasr 24-Mar-1983 

More Linkages reorganization. 

TMK0015 Todd M. Katz 11-Mar-1983 

If RMS had to wait for a record lock, and it must re-position 


to the primary data record by calling RMSFIND_BY_RRV, then make 
sure the pr tnery data bucket containing the record is locked 
exclusively if the possibility exists that some reclamation 
maybe done (the file is write accessed and RU Journallable). 


MCNO014 Maria del C. %asr 24-Feb-1983 
Reorganize Linkages 


TMK0014 Todd M. Katz _ 14-Jan-1983 

Add support for Recovery Unit Journalling and RU ROLLBACK 
Recovery of ISAM files. Support involves modifications to 
RM$GET3B and RMS$GET_RECORD. 


The purpose of the routines within this module is to retrieve 
a non-deleted primary data record by the user specified access 
mode. If oon its search for such a record RMS in its 
low-level routines encounters records that are marked | , 
RU_DELETE, RMS will try and delete them for good at this time 
provided it has write access to the file and the Recovery Unit 
in which they were deleted has completed successfully. 


If RMS is able to delete a primary data record marked RU_DELETE 
in these low-level routines, then RMS proceeds to continue 
looking for a non-deleted pr leary data record just as if it had 
encountered a deleted record in the first place. Likewise, if 
RMS is unable to delete a record that is marked RU_DELETE 
because it does not have write access to the file, it sorely 
continues its search. However, if RMS is unable to delete the 
record for good in these low-level routines because the 
mocevery Unit in which it was marked RU_DELETE has not 
successfully terminated, then RMS returns this record as if it 
was the non-deleted primary data record to be returned, and 
lets a higher-level routine decide whether or not to wait for 
the Recovery Unit in which the record was deleted to complete, 
or to return an error to the user. 


The routines within this module are the high-level routines 
which decide what to do with RU_DELETEd records that are 
returned from the low-level positioning routines. 
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1. If RMS is unable to lock such a record because another 
Sreness Surrenthy has it locked, then an RLK error is 
returned. 


2. 1f RMS is able to lock such a record, regardless of whether 
it had to wait for it or not, then if it finds that the 
record is not marked RU_DELETE it will return it provided 
all other normal conditions have been met. 


3. If on the other hand, RMS finds that the record is still 
marked RU_DELETE after it has locked it, then it will delete 
the record for good at this time (if the stream has write 
access to the file), and continue the search for a 
my) primary data record provided the access mode is 
not by ° 


I have also made two other changes in su pect of RU Journalling 
and Recovery. First, the ROP bit RABSV_NLK is totally igperes 
whenever a stream is currently within a Recovery Unit. Finally, 
it is also possible that a RU_UPDATE marked record aignt be 
re-formatted before releasing the bucket in which it is found 
oh he the stream has write access to the file. The record 
eing re-formatted in this case can only be the record that is 
to be returned as the non-deleted primary data record. 


I have made an additional change to RMSGET RECORD. If RMS is 
currently rengemsy positioning by key to what it thinks is the 
current record, then it query locks the current record to make 
sure that this record is in fact locked to avoid a window in — 
which the record is deleted between the time the record lock is 
released, and the bucket in which the record is found is 
accessed. If the user has apes three record waiting it is 
disabled for this query lock. Currently it is disabled by 
eseerens the RABSV_WAT bit if it is set, and then : 
re-establishing its state after the query lock. The state bit 
IRB$V_NO_Q_WAIT maybe set to accomplish this same thing and it 
avoids modifying the user's contol block. 


I have created a routine RMSPOS_RFA whose functionality 
parallels that of RMSPOS_SEQ and RMSPOS_KEY. That is, the 
routine RMSGET_RECORD will call this routine whenever it is to 
position to the next primary data record by RFA instead of 
performing the positioning itself. 


TMKO013 Todd M. Katz 09-Nov-1982 
Fix a bug in record unlocking. Whenever RMS must wait for a 
record lock (the RABSV_WAT ROP bit is set), and upon being 
ranted the lock finds that the record it has been waited on has 
een deleted, RMS must perform a re-posi tioning. (There is one 
exception to this rule. If RMS was accessing the record by its 
RFA then the record deleted error is returned.) RMS must also 
perform a Conpeetsseniag whenever it is poe TE ten tng by means of 
an alternate key and has had to wait for a record lock. As part 
of this re-positioning, RMS must release the lock it obtained 
during the prior positioning attempt. The problem is that RMS 
was uSing the wrong RFA when it went to release the record 
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whenever it was re-positioning because the record it had to wait 
for had been deleted while it was waiting for it. The RFA it was 
using was the RFA of the current record. This record had been 
locked curing the previous positioning operation, and had been 
unlocked during the first positioning attempt of the current 
operation. The lock RMS wants to release is for the record 
locked during the previous positioning attempt. 


The fix for this problem is relatively straightforward. RMS 
never has to re-position unless it has had to wait for a record 
lock. Therefore, what ! did was set the state bit OK_WAT_STATUS 
whenever a re-positioning has to be done instead of just 

setting it whenever the re-positioning is being done because 
RMS had to wait for a record lock while positioning along an 
alternate index. The setting of this state bit forces RMS to 
unlock the correct record during the re-positioning attempt. 


v03-018 TMKO012 Todd M. Katz 29-0¢ t-1982 : 
Make sure that RMS has the index descriptor for the ae key 
before the size of the primary data record to be returned is 
determined, the record unpacked (if the file is a prologue 3 
file), and the record moved into the user's buffer. 


v03-017 TMKOO11 Todd M. Katz 11=0¢t-1982 . 
Fix a record locking oe Whenever the ROP bit RABSV_WAT is set 
the possibility exists that RMS might have to wait for a record 
lock. If RMS is positioning by means of an alternate index, and 
has to wait for such a record lock, then it had to give up the 
SIDR bucket while it was waiting. Because it gave up the SIDR 
bucket, the information which it has inorder to update the NRP 
List_can no longer be considered valid. Since there is no way 
for RMS is to easily re-access the SIDR bucket, RMS must 
re-position to it by ene pe GET RECORD. Part of this 
re-positioning includes unlocking the very same primary data 
record which it had to wait for a record lock on. Unfortunately, 
GET_RECORD uses the NRP information to unlock primary data 
records, and RMS of course, didn't get to the point where it 
updated the NRP! Therefore, RMS is either not unlocking any 
record, or it is unlocking the wrong record. Both cases 
represent errors. 
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To fix this what I have done is added an input parameter to 
GET_RECORD. If it is set, RMS is re-positioning because of the 
above mentioned problem, and uses the RFA internally saved 

from the prior positioning attempt to unlock the record; 
otherwise, the RFA from the current record saved as part of the 
NRP context is used. Furthermore, whenever RMS does such a 

ay at) ein 2 it now notes that it had to do so because of 

an OK_WAT success status positioning on an alternate key of 
reference. If it is successful at re-positioning, it sets 

the status to OK_WAT which represents the status that it would 


have returned if the re-positioning had not been necessary. 


I have made two additional changes concerning when 

Ferpestt tentang is required. First, if RMS 1g poste loning by key 
value, and after ye) king for a record lock finds that the record 
it has been waited for has been deleted, then RMS will perform a 
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re-positioning to the next record which matches the search key 
in keybuffer ¢ according to the characteristics of the search. 
Formerly, RMS was just returning a record deleted error, but I 
believe the other approach has more merit. Second, whenever RMS 
is we fg ng by an alternate key of reference (sequentially or 
randonmly by ey yolue?, and must wait for a record lock, then 

S must reposition to re-establish the NRP information for the 
SIDR. Formeriy, this py pees Sonos was not done if RMS was 
og ew a random SFIND. However, since the stream which has 
the record locked can delete the SIDR array positioned to by the 
waiting stream without deleting the actual primary data record 
(by means of an SUPDATE), then as the record eventual ty returned 
would not have the ‘‘correct’’ alternate key if re-positioning 
were not done, | believe that this requires this re-positioning 
to take place, even though the NRP is not going to be updated 
by this particular operation. 


Finally, the Last thing I did was make some changes on how the 
record unlocking is done when buffer errors are encountered 
during a S$GET/SFIND. At this point the record has etreedy been 
locked, and must be unlocked before control returns to the 
user. The routine GET_RECORD returns information in AP to 
RM$GET3B as to whether any special action is required to unlock 
this record on buffer errors. Unfortunately, AP is used 
throughout the remainder of RMS$GET3B as input to record 
unpacking and key extraction; thus, its contents should a buffer 
error be detected and the record need to be unlocked, are 
unreliable. To fix this problem, I now set a flag bit on return 
from GET RECORD if in fact special action will be required to 
unlock the record on buffer errors, and reference this bit 

in that circumstance rather than the AP. 


TMKO0010 Todd M. Katz 29-Sep-1982 

If a file is a prologue 3 file with alternate keys, and RMS 

is positioning by means of an alternate key of reference, then 
RMS was not ene the record before returning it to the user 
because it assummed that the record had been unpacked during the 
poste renre and there was no need to unpack it a second time. 
owever, while this is true, RMS at this point does not know 

the unpacked record's size. Thus, for the time being RMS must 
always unpack the record before moving it into the user's 

record buffer if the file is a prologue 3 file. 


TMKO009 Todd M. Katz 09-Sep-1982 
The field IRB$B_SRCHFLAGS is now a word in size. Change all 
references to it. 


Whenever RMS is positioning by means of an alternate key of 
reference (IRB$B_RP_KREF > 0), then there is never a need in the 
local routine GET_RECORD to extract the alternate key of the 
record positioned to into keybuffer 2. This is because as part 
of ot hte to the primary data record from the SIDR in the 
baret gn ecg. he SIDR key has already been extracted into 
eybuffer 2. 


Eliminate all references to the routine RMSKEY_TYPE_CONV, since 
this routine doesn't do anything anyway. 
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: a6 17 ; 
; ; t The only time it is necessary to check for a valid packed . 
$ 8 es 1! decimal key is when the key pe is packed decimal. it is never 3 
; 289 oy 63 CS necessary to check for a valid packed decimal typg when there is : 
; 290 0290 1! more than one segment and the file is a prologue 3 file. The : 
: 291 8 oe £ packed decimal verfication routine no longer requires : 
: 35 : parameters. : 
: 29% o 94 1: v03-014 KBT0294 Keith B. Thompson 23-Aug-1982 ; 
: + 8 32 : Reorganize psects ? : 
: 297 8 39 1! v03-013 TMKO008 Todd M. Katz 10-Aug-1982 : 
; 298 % 1! At the present time, when the accessing of a record by RFA 5 
; 299 0299 1! fails, the error returned y RMSFIND_BY_RRV is the error that : 
; 300 0300 1! gets reported to the user. Change this So that if this routine : 
; 301 0301 1! returns an error of RMS$_EOF (because the RFA VBN is greater : 
; b308 1! than the VBN of any tm data bucket), this error yets mapped : 
: B7 8307 : } into an error of RMSS_PNF. 3 
; 305 0305 1 ! v03-012 MCNO013 Maria del C. Nasr 10-Aug-1982 3 
; 306 0306 1! Check for Less than 0 on call to RMS$COMPARE_KEY so that ; 
:; 307 0307 1 LIM check is done correctly. This is to fix bug introduced 3 
: pS ts 4 ' } by MCNOO12. : 
; 310 0310 1! v03-011 TMKO007 Todd M. Katz : 19-Jun-1982 : 
s 31) 0311 1! Implement the RMS cluster NRP solution. Basically this involves 3 
: ale Oaig ; | removal of the NRP cells from system space, and the maintenance F 
3 S13 0315 1! of the next record positioning context cece ty within the IFAB. F 
: se baie ’ Changes required to the routines in this module are as follows: 3 
; 316 0316 1! 1. The routine SETUP_NRP_DATA now sets up the current record : 
g SV 0317 1: context in the process local IRAB instead of in the : 
: 218 tt : system-wide NRP cell. 3 
; 320 0320 1! 2. The IRAB variables IRBSL_NEXT VBN and IRBS$W_NEXT_ID are : 
s Sel 0321 1! used to temporarily hold the RFA address of the “next'’ 3 
3 tee 0322 1! primary data record until the updating of the local NRP 3 
3 ies 0323 1! context cakes place. This is because nothing in the local : 
: $e b35¢ ; NRP context maybe modified, until everything is modified! 3 
: 326 0326 1! 3. The local routines must also be modified both to make use : 
mag 0327 1! of the next record positioning context now saved within : 
: $56 0355 ' } the IRAB instead of within a Systemwide NRP cell. : 
: 3% 0386 ' | 4. If RMS encounters the end-of-file set the IRBSV_EOF bit. : 
3 6S2 0331 1! This bit is also cleared after successfully positioning : 
3 sae bag 1! randomly by key value. The former function of this bit F 
: $37 Oeez ! has now been taken over by the new bit IRBSV_CON_EOF. 3 
$ 336 0335 1! 5. Special processing is required for $GETs following random 3 
: 336 B236 1! SFINDS. A random SFIND does nat change the notion of what : 
3 Sor Gsor | § the next record is although it does change the notion of : 
; 338 0338 1! what the current record is! Example with the record sequence 3 
; 339 tyes 1! AB - sequential $GET to A, random $FIND to 0, $DELETE 3 
; 340 340 1! followed by a sequential $GEf returns B, the next record. : 
; 341 0341 1! The random $F IND changed the current record to 0, but did 3 
; 342 0342 1! not change the next record to 0! The RMS cluster solution 3 
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for NRP positioning handles this by heeging the current 
primary data record's RFA and the RFA of the primary data 


record for NRP positioning in separate fields. Most 
operations set all NRP fields and as a result the RFA 
address of the current primary data record and the RFA 
address of the primary data record used for NRP positioning 
are the same. However, a random $FIND will set only the 
current ghee data record's RFA field. If the random 
SFIND is immediately followed by a sequential $GET, then it 
is only at that moment that the local NRP context is setup 
to return the randomly found record as the next record. 


Also, it is no longer eoceenery within GET_RECORD to Loop 

on calls to RM$POS_SEQ or RMS$POS_KEY when these routines return 
RLK errors. An RLK error could occur only when positioning on 
an alternate index and signalled that re-positioning should be 
forced. This re-positioning is now handled at a much lower 
level, and there is no longer any need to force it. 


During the performance optimization of TMKO005 one incorrect 
assumption was made: that no deleted records were encountered 
between the last record retrieved, whose key is in mereut fer Ta 
and the new record that has just been retrieved. If this is 
true, the optimization holds, but if it is not, we can not use 
the key of the last retrieved record to uncompress the key of 
the new record, because the compression of the key of the new 
recorc is based upon the intervening deleted records, and not 
the key of the last record. In such a situation, the key of 
the new record must be extracted, and re-expanded in the old 
way performing a bucket scan if necessary. 


Finally, it will no Longer be necessary to unpack the pryeery 
data record when the file is a prologue 3 file, and RMS is 
currently regis pe by an alternate oo since the record 
will have been already unpacked and is within the internal 
record buffer. 


v03-010 MCNO012 Maria del C. Nasr 29-Jun-1982 


f different data types other than string. 
Change a HSCOMPARE calls to RMSCOMPARE_KEY to compare 
keys taking into consideration the different data types. 


TMK0006 Todd M. Katz 26-May-1982 

I have changed how the ROP=LIM bey comparison is performed. 
Formerly, the routine RMSCOMPARE_REC was being called. It was 
being called because the (incorrect) assumption existed that 
the key of the next record might have to be extracted and 
re-expanded, if key compression was enabled, in order to make 
the comparison. As it turns out, at this point in the 
operation, RMS has already extracted (and re-expanded if 
necessary) the =ey of the next record into keybuffer 2. Thus, 
in order to make the comparison, only a CHSCOMPARE between 

the key in the user's key buffer and the key in keybuffer 2 
need be made. Thus, this comparison has now been made prologue 
independent, it is a performance optimization for alt prologue 
versions, and the performance realized for prologue 5 files 

is considerable because it eliminates the need for one more 
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; 400 400 1! bucket 
; : scan which was unnecessaril - 
tb a : the key of the next record. ¥ S0mE Seng te Fengepend : 
3 60 0403 1! v03-008 TMKO00S ; 
: 4 Todd M. Katz 26-May-1982 ; 
tee Bree : } Performance enhancement. After successfull positioning to the ; 
; ¢ Rene 4 | next record, RMS extracts its key into keybuffer 2. If key ; 
; rh BeOF 1 compression is enabled this mandates another bucket pass to : 
: 408 oc08 1 i 4 expend the ney However, if RMS is positioning sequentially, ; 
: 008 oc08 1 i ; - HF as the key of the previous record retrieved saved in ; 
210 0410 1 | okak senorscecd otf tes har at ies content feted tastacl | 
; nt r : 
oie Belg ! performing another bucket pass to expand the om meee ; 
: 41 0413 1: v03-007 TMKO004 T | 
; ; odd M. Katz 24-May-19 | : 
re Bete : Ger rermance enhancement. When performing a $GET yf prologue 3 | : 
; ate eae e, the record found must be unpacked before it is returned. | : 
: ae bei? i core of this yaoess tag includes extraction of the primary key ; 
: tle ot a rom its position in front of the data record, and its | F 
: tie ot Ay my wane bh if key compression is enabled. But if we are ; 
: 136 0650 1 posit ee by primary key of reference then there is really no ; 
: of 7 need to extract and re-expand the primary key because KMS : 
: 0S) B53 4 i a reery has it in the oper form within keybuffer 2. To : 
: 258 b25§ +i signal to the routine RMSUNPACK_REC, that there is no need to | ; 
: tS: ot ae re ract and re-expand the gta key of the found data record, : 
: 258 Reset | uf that it maybe found in keybuffer 2, we initialize AP to 2 : 
; te $c56 7 | before calling the routine when the key of reference is the ; 
: 427 0427 1! sshenaiednie | 
: 428 0428 1! v03-006 LJA0008 | ; 
i Laurie Anderson 08-Apr-198 : 
' ; ; 
ri Be 4 : must check for allocation of IDX_DFN, iota saneae fields in | : 
oR os a t. The IDX_DFN will not be allocated if there is an error | ; 
: 43 a3 1 returned from RMSKEY_DESC which is called by GET RECORD. | : 
: 433 0433 1 | v03-005 TMKO003 T | ; 
i 433 ; odd M. Katz 01-Apr-1982 | : 
rt rs ok : If recerg locking is enabled, in GET_RECORD ue lock the record : 
¢ te Beet i we have found. If we had to wait for this record, the status : 
: 238 ot; roturnes is an alternate success (OK_WAT). We should be setting | ; 
: 138 7) ae the INBSV UNLOCK EF bit so that whenever we have finished | 
: os ot PE wit this record RMS will know to release it, but because our | : 
: 020 Reina i gcetus s OK_WAT and not success, the current flow of control | ; 
ark Reed areas a return before this bit can be set. Therefore, the 3 
: Rees i pose bility exists that once a process has waited for a record : 
; 2 Rees 4 i ace and successfully locks the record, it will not release the : 
: thi Rett} i aoee unless oupt te toly told to do so (such as by an explicit : 
ET Sake AS ehae TRB paof@ RE GHtL ae° ase soe onch See : 
: ! 5 CRP wi e : 
: ‘ bee$ : to wait for a record lock. Se, SHOR Saen e ESe : 
: 468 0448 1! V03-004 TMK0002 Todd 
: 449 0449 1 | Sdae tau Gtldevent eal att a ee 
; ‘ ent set of circumstances we will h : 
$20 Beat ' release the record lock obtained in GET RECORD. re ; 
: 65 0452 1! 1. If we ha i ; 
; ‘ ve decided to make another iterative call to : 
2 ae GETTRECOAD and ve navel Locked-e Tecorg_gitnin’ the Lest : 
: . this lock before attemptin : 
oe: beee : } to locate the next record in the current call. Poe : 
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: 457 0457 1! 2. If we are currently performing a random $FIND/S$GET, and : 
; 458 0458 1! we must wait in our attempt to lock the record we have : 
; 459 0459 1! found (RABSV_WAT is set), and upon returning and reaccessing : 
; 460 0460 1! the bucket we found that this record has been deleted by ‘ 
; 461 0461 1! the stream that previously had it locked, then we must ‘ 
; 46 Bees } 3 release our lock on this deleted record before returning : 
: re Beez } the status of deleted record from RMSGET5B. ; 
; 465 0465 1! Both of these record lock releases wey be signaled by setting : 
; 466 0466 1! the IRAB bit IRBSL_UNLOCK_RP within GET RECORD at the : : 
: 467 0467 1! ap ropriate time. The record will then Be locked either within H 
3 ret Ree ! } GET_RECORD in the former case or within RMSGET3B in the Latter. : 
; 470 0470 1! v03-003 TMKO0001 Todd M. Katz 24-Mar-1982 ; 
> 471 0471 1! hange all references to te keybuffers to use the macro : 
; o7g Ree : KEYBUF _ADDR : 
> 474 0474 1! If an error status of RLK is returned on an attempt to | : 
: $75 0475 1! “get'' a data record, try again until the record is retrieved : 
: 476 0476 1! or a different error is returned. This will only eccur when : 
3; 477 0477 1! our ae of reference is other than key 0, and someone else had 3 
; 478 0478 1! the primary data (or RRV) bucket locked when we attempted to H 
3 479 0479 1! access it from the SIDR. The SIDR bucket must be released : 
: 480 0480 1! and we have to reaccess it inorder to avoid a potential ; 
; 481 0481 1! deadlock situation, and returning an error of RLK will now ; 
; re pee ’ guarentee that this is what will happen. : 
> «486 0484 1! If the attempt to sequentially access a record results ina ; 
: 485 0485 1! status of record deleted being returned from GET_RECORD, ; 
> 486 0486 1! attempt to sequentially retrieve the very next record, and | : 
; 487 0487 1! continue doing this until some other status is returned. This : 
; 488 0488 1! situation can develop if we try for a record lock and end up : 
; 489 0489 1! waiting (the ROP WAT bit is set) for it. While we are waiting : 
; 490 0490 1! the process (or stream) which has the record lock deletes it. ; 
> 491 0491 1! When control returns to this process, the status it gets back : 
; 492 0492 1! indicates that it had to wait, and so it reacesses the bucket : 
; 493 0495 1! the record was in (it had to release it when it went for the : 
; 49 0494 1! record lock) and now finds the record is deleted and returns : 
3 rhe Rees ; that status. : 
; 497 0497 1! When control returns to RM$GETRECORD from RMSPOS_SEQ, ; 
; 498 0498 1! RMSPOS_KEY, or RMSFIND_BY_RRV with a success status, the next 3 
: 499 0499 1! record has been found, the bucket peetere eg it has been : 
; $00 0500 1! locked, and the IRAB fields IRBSL_RFA_VBN, IRB$W_RFA_ID, and ; 
ae) 0501 1! IRB$W_SAVE_POS contain the information necessary to update the : 
; 206 ea4 1! NRP context to that of the ‘‘found’’ record. If a decision is : 
; 0503 1! made to lock the record, and RMS has to stall for the record : 
; 504 0504 1! Lock (RABSV_WAT is set and some other stream has the record : 
3 309 0505 1! locked) then when the lock is obtained, the bucket containing $ 
: 506 0506 1! the record is no longer locked (if we have to wait for the : 
3 fer 0507 1! record lock we must release the lock on the bucket to avoid the : 
; 508 0508 1! possibility of deadlock), and the NRP updating information 3 
; 509 0509 1! within the IRAB can no longer be considered valid because the : 
; 510 0510 1! bucket containing the record might have split moving the record 3 
3; 511 0511 1! to the new bucket, and the record itself might even have been : 
; Sie eae 3 deleted. If we are accessing this file by its primary key, : 
s 515 0513 1! then as its record pointer (RP) information is still valid, : 


RM3GET 

04-000 

; 514 0514 «#1 
s S35 0515 1 
: 516 B28 1 
tee 04 0517 1 
: 518 0518 1 
; 519 0519 1 
: 520 0520 1 
3 Sey 0521 1 
; 3 ¢ 05 ¢ 1 
s Se 05 1 
; 524 0524 1 
; 252 0525 1 
; te 0526 1 
3 Ser 0527 1 
s See 0528 1 
3 267 0529 1 
3; 330 0530 1 
PROS 0531 1 
: 332 0532 #1 
; Sas 0533 (1 
> 534 0534 1 
3 335 0535 (1 
; 536 0536 «1 
3; $37 0537 1 
; 338 0538 #1 
; Sh 0539 (1 
: 540 0540 1 
3 361 0541 1 
3 562 0542 #1 
: 543 0543 1 
3; 544 0544«1 
; 545 0545 1 
; 546 0546 1 
; 547 0547 1 
; 548 0548 #1 
; 549 0549 #1 
; $50 0550 1 
.. Sa 0551 1 
; 552 0552 #1 
.. 335 0553 (1 
; 554 0554 (1 
s $35 0555 1 
; 556 0556 1 
s $57 0557 1 
; 558 0558 1 
; 559 0559 ‘1 
; 560 0560 1 
; 561 0561 1 
3 268 3266 1 
. ae 0563 1 
: 564 0564 (1 
; 565 0565 1 
: 566 0566 1 
3 567 0567 1 
; 568 0568 1 
: 569 0569 i 
; $70 0570 1 
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1 - 
14-Sep-19 
has been again locked, the information necessary to update 
the next record context can be obtained and we can proceed. 
However, if we are accessing this record by an alternate 
key and we stall, then there is no easy | to reobtain the 
next record context information necessary fo 

the NRP List. Thus, if the primary data record which we have 
locked is not deleted, and if we are performing a sequent tet 
SFIND, or a $SGET operation (for which NRP List updating is 
mandatory), then we have no choice but repeat this lengthy 


process from the 14 bya 2 This is done BYby noting on return 
av 


from GET_RECORD, that we e an alternate success status 
(OK_WAT), that we our es of reference is not the primary key, 
and that we have not locked the primary data bucket. 


LJA0006 Laurie Anderson 23-Mar-1982 

If the get record caused an RTB error, then the ~my key 
was not copied into an RMS internal buffer. This key buffer 
is used to avoid un-locking a record during a random access 
for ~~ exact match by key when that record is the current 
record. 


KPLOO009 Peter Lieberwirth 17-Mar-1982 

Set UNLOCK_RP on errors reaccessing record after successful 
wait for -ecord lock. This will cause the record to be 
unlocked on the way out. 


Add sutitles. 


DJDO0001 _ Darrell Duffy 1-March-1982 

Clean up probing of input parameters 

KPL0008 Peter Lieberwirth _ d-Nov~1981 

Add support for PUT to EOF by clearing internal EOF flag on 
random gets, and returning RMS$_EOF on sequential gets. 
KPL0007 Peter Lieberwirth 7-0ct-1981 

Fix bug on reacessing buffer logic on secondary key. 
KPL0006 Peter Lieberwirth 2-0ct-1981 


Fix bugs related to interaction of WAT bit set when QUERY_LCK 
is called. When re-accessing same record, don't WAT even if 
user said to until real lock logic. Also, when QUERY_LCK 
called with WAT set in lock logic of GET_RECORD, remember to 
reaccess the bucket if RMS stalled. Fix reaccess logic to 
work with secondary keys. (Oops!) 


KPLO005 Peter Lieberwirth 23-Aug-1981 
Fix incorrect and misleading -cnucucoty due to VO? ule. 
Also, allocate a temporary variable more .iticently. 


MCNOO11 Maria del C. Nasr 24-Jul-1981 
Implement key type conversion. 
MCNO010 Maria del C. Nasr 23-Jul-1981 


Incorporate all the following changes: 
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we can call RMSFIND_BY_RRV to lock the bucket. Once the bucket 
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Use RMSREC_OVHD, and user's buffer to get key 

Use key buffer 4 to unpack priaery key. 

Include code for unpac a of pro ogue 3 data records. 

Change calling sequence of RMSFIND_BY_RRV. 

engreess size of record identifier to a word in the IRB, 
an ° 

Modi fy routine to handle new prologue 3 data structure 

changes (base level 1). 


v02-018 KPLO004 P. Lieberwirth 15-Jan-1981 = 3:15 
Change GET_RECORD to reaccess bucket if it had to be | Meg 
up for wait on record. Implements new ROP functionality 
implied by WAT and REA. 


v02-017 SPR33597 P. Lieberwirth 24-Nov-1980 10:00 
Fix oa Sere omitted fetch operator caused incorrect test 
for va erty ee NRP. Bug caused incorrect operation on 


sequential SFINDs. Clarify some commentary by cleaning up 

some spelling mistakes, and explaining FIND some more. 
V02-016 REFORMAT K. E. Kinnear 24-Jul-1980 9:54 
v02-015 CdSs0073 C. D. Saether 17-Jan-1980 2:35 


Restructure current record unlocking logic to add check 
when duplicates aren't allowed to avoid record lock window 
and reaccessing current record. 


v02-014 PSKO0005 P. S. Knibbe : 18-Dec-1979 5:00 
Check that packed decimal keys are in the correct format. 


REVISION HISTORY: 


v02-013 C. D. Saether 12-Jul-1979 11:30 
Level calling RMSCOMPARE_REC should be -1. 

v01-012 W. Koenig 6-Feb-1979 17:19 
Fill in user's RFA after some other checks. 

v01-011 W. Koenig 6-Dec-1978 10:19 
Impiement RMS$_OK_LIM. 

v01-010 W. Koenig 5-Dec-1978 10:25 
Don't return DCT Field. 

v01-009 W. Koenig : — 24-Oct-1978 14:02 
Make changes caused by sharing conventions. 

v01-008 5-Cct-1978 14:02 


W. Koonts : 
Zero all the NRP flags when resetting the NRP data. 


v01-007 W. Koenig | 26-Sep-1978 16:42 
Don't zero the RP information after a successful get or 
sequential find. 


v01-006 26-Sep-1978 13:15 


W. Keon tg 
Can no longer zero out RP_SECOND as a longword. 
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06500 14- gep-19 4 94:63:32 DISKSVMSMASTER: CRMS. SRC RM3GET.B832;1 te (1) v04 
; 628 6 1! v01-005 C. 0. Saether 21-Sep-1978 16:44 $7 
; ° 8 Oe : : } Clear SRCFLAGS always. . : : 
: 631 0631 1 | v01-004 W. Koeni 21-Sep-1978 15:50 71 
: O36 Be ¢ i Return the data to the wher On any seccess, net just “‘suc’’. ; : 
: ort 86 4 1! v01-003 C. D. Saether 20-Sep-1975 16:25 $3 
3 oe? $6 2 : Clear NRP update flags when storing NAP. : I 
; 637 0637 1! v01-002 C. D. Saether 12-Sep-1978 15:21 $1 
; 638 0638 1! Remove NXTBDB setup on RFA access. s 1 
; 639 897? 1! 3 3 
; 640 640 1 !eeeee 3 7 
> 641 0641 1 $ 7 
; 64 pos 1 LIBRARY ‘RMSLIB:RMS'; s J 
; 64 064 1 $7 
; 644 0644 1 REQUIRE ‘RMSSRC:RMSIDXDEF'; 3 1 
3; 6465 0709 1 s 7 
> 646 0710 1 ! Define default psects for code 37 
; 647 0711 1! 3 1 
: 648 Bg 1 PSECT s 7 
; 649 071 1 CODE = RMSRMS3(PSECT_ATTR), 3 % 
; 650 0714 #1 PLIT = RMSRMS3(PSECT_ATTR); e4 
s 691 0715 1 gs 3 
; 652 0716 1 ! Linkages. 3 7 
3; 653 0717 1! a 7 
3; 654 0718 1 LINKAG 5 4 
: 655 0719 1 L_COMPARE_KEY, 71 
; 656 0720 1 L_JSB a. 
: 657 0721 1 L75861, 34 
; 658 B76 1 L_PRESERVE1, ; 3 
3 659 0723 1 L_QUERY_AND_LOCK, $7 
; 660 0724 1 L-RABREG, 3 7 
; 661 0725 1 L_RABREG_67, 3 Y 
; 662 0726 (1 L-RABREG 7, 5 7 
> 663 0727 1 t “REC _OVAD; 37 
; 664 0728 #1 3: 1 
; 665 0729 1 ' Local Linkages. 3 
3; 666 0730 1 ! 3 7 
; 667 0731 +#1 L_GET_RECORD = JSB () : 2 7 
; 668 0732 #1 GLOBAL (COMMON RABREG, R_REC_ADDR, R_IDX_DFN) 31 
> 669 0733 1 NOPRESERVE (2,°3, 4, | iy 31 
:; 670 0734 1 L_SETUP_NRP = JSB () 3s 7 
; 671 Be 82 1 GLOBAL (COMMON. geses R_IDX_DFN) 3 7 
: 672 736 1 NOPRESERVE (2,73, 4, 5);7 3:1 
; 673 0737 «#1 3 7 
> 674 0738 1 ! Forward Routines. 37 
s 675 0739 1! 3; 1 
; 676 0740 1 FORWARD ROUTINE s 7 
s 677 0741 1 GET_RECORD : L_GET_RECORD; $s 1 
; 678 tok 1 3 7 
3 679 0743 1 ! External Routines. 3 7 
; 680 0744 1: 5 1 
; 6681 Boe 1 EXTERNAL ROUTINE 27 
; 682 746 «1 RMSCOMPARE_KEY : RLSCOMPARE eer. 3 1 
; 683 0747 1 RMSF IND _BY-RRV : RLSRABREG_ s 1 
3; 684 0748 #1 RMSKEY best 3 RLSRABREG_ 3.1 
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Key of reference used to retrieve user data record 
Number of elements before current SIDR element 


: 703 766 1 XSBTTL ‘SETUP_NRP_DATA’ 

: 704 76 ROUTINE SETUP-NRP-DATA : L_SETUP_NRP NOVALUE = 

: 705 768 

; 706 0769 lee 

; 707 0770 

; 708 0771 FUNCTIONAL DESCRIPTION: 

; 709 140 

; 710 077 This routine saves the next record positioning data 

; ry 0774 in the IRAB from the temporary IRAB locations filled 

3 ar; 14h} in during the positioning to the primary data record. 

: 714 777 CALLING SEQUENCE: 

5 7% 8356 

3; 0779 SETUP_NRP_DATA() 

, rey 0780 

; «718 0781 INPUT PARAMETERS: 

; 719 4 NONE 

: 720 078 

3s fel 0784 IMPLICIT INPUTS: 

s vee 0785 

3; fe 0786 IRAB 

; 724 0787 IRBSL_FIRST_ID = Current SIDR's first SIDR array element ID 
: 72 0788 IRBSL_FIRST VBN = Current SIDR's first SIDR array element VBN 
; 726 0789 IRB$L_ KEYBUF - Pointer to keybuffers (to access keybuffer 2) 
s ve? 0790 IRBSW_LWEXT_ID = ID of current primary data record 

; 728 0791 IRBSL_NEXT_VBN = VBN of current primary data record 

: i B78 IRB$W_RFA_TD - ID of current record (SIDR/primary) 
; 750 079 IRBSL_RFA_VBN = VBN of current record (SIDR/primary) 
; 731 07 IRBSB-RP_RREF = 

: 732 - 

3; 735 

; 736 

s 39 
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0796 AB 5 
3 4424 IF BSW_KBUF SZ - Size of keybuffer (to access keybuffer 2) | 
736 0799 OUTPUT PARAMETERS: 
737 0800 NONE 
738 0801 
39 080 IMPLICIT OUTPUTS: 
40 080 IRAB 
741 0804 IRB$W_CUR_COUNT = Number of elements before current SIDR element 
74 0805 IRB$W_CUR_ID - ID of current record (SIDR/primary) ; 
74 0806 IRB$B_CUR_KREF = Key of reference of current record (SIDR/primary) 
744 0807 IRBSL_CUR_VBN = VBN of current record (SIDR/primary) 3 
: 745 0808 RBSV_EOF - clear indicating stream is not at end-of-file 
; 746 6840 IRBSL_KE YBUF - Pointer to keybuffers (to access keybuffer 1) 
; 747 810 IRB$W_POS_ID - 1D of primary data record for NRP positioning 
; 748 0811 IRB$L_POS_ VBN = VBN of primary data record for NRP positioning 
; 749 pele IRBSL-SIDR_VBN = Current SIDR'S first SIDR array element VBN 
; 750 081 IRB$W_SIDR_ID = Current SIDR's first SIDR array element ID 
3; 751 0814 IRB$W_UDR_TD - 1D of current primary data record 
; Peg Bata IRB$L_UDR_VBN = VBN of current primary data record 
3; 754 OBI? ROUTINE VALUE: 
; 755 0818 NONE 
: 756 0819 
; 757 bass -- 
; 758 0821 
; 759 0822 BEGIN 
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EXTERNAL we 
COMMON_RAB_STR; 

Indicate that this stream is no longer at the file's end of file. 

iRABCIRBSV_EOF] = 0; 

Move the VBN of the current record into the appropriate IRAB location 

IRABCIRBSL_CUR_VBN] = .IRABCIRBSL_RFA_VBN); 


! If the current record happens to also be the primary data record, then 
move its ID into the appropriate IRAB location. 


If .IRABCIRB$B_RP_KREF] EQLU 0 
IRABCIRBSW_CUR_ID] = .IRABCIRBSW_RFA_ID] 


If the current record panoens to be a SIDR, then it has no ID to save, 
and instead save the SIDR first array element's VBN and ID (this uniquely 
indetifies the SIDR), and the number of array elements preceeding the 

a pe sone (which points to the primary data record that is being 
retrieved). 


Dracucsacecsre 


LSE 
BEGIN 
IRABCIRBSU_ CUR COUNT) = - IRABCIRBSW_ SAVE POS); 
IRABCIRBSL-SIDR_VBN] = .IRABCIRBSL~FIRST_VBNI; 
TRABLIRBSU_S1DR_ D] = LIRABCIRBSW-FIRST~1DJ; 


Move the RFA of the current primary data record from its temporary | 
Location into the local NRP context and make it both the current primary 
data record and the primary data record for NRP positioning. 


RABE IRBSL_UDR_VBN] -TRABCIRBSL NEXT _VBN2; 
IRABLIRB$W-UDR-1D)] = .IRABLIRBSW-NEXT~1DJ; 


[RABCIRBSL_POS_VBN] = .JRABCIRBSL_NEXT_VBNI; 
IRABLIRB$W-POS-ID] = .IRABLIRBSW-NEXT~1DJ; 


! Setup up the key of reference of the current record, and move the key of 
the current record into keybuffer 1. 


JRABCIRB$B_CUR_KREF] = .IRABCIRBSB_RP_KREF); 
CHSMOVE (. IFABLTFBSW_KBUFSZJ, KEYBUF_ADDR(2), KEYBUF_ADDR(1)); 


' 
i 
i 
I 


END; 


-TITLE RM3GET 
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-EXTRN RMSCOMPARE_KEY, RMSFIND_BY_RRV 
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EXTRN RMSKEY_DESC, RMSLOC 

EXTRN RMS$NOREAD LONG. EASNOURT _LONG 
EXTRN RMSPCK Dect 

XTRN RM$POS OkEY. NEMSPOS RFA 


6 
) 


0 
“EXTRN RMSRLSBKT, RM$RU_RECLAIM 
“EXTRN RMSUNLOCK, RMSUNPACK_REC 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 


06 Ad 02 8A 00000 SETUP_NRP_DATA: 
BICB2 #2, 4( ) ; 0830 
00AB 9 79 AI D0 00004 MOVL  112(IRAB), 168(IRAB) > 0834 | 
00c2 C9 95 OOODA TSTB © 194(1R > 0839 | 
08 12 O000E BNEQ 1$ : 
0088 C9 74 A9 BO 00010 MOVW  116(IRAB), 184(IRAB) + 0841 | 
13 11 00016 BRB 2$ : 
00co 369 76 AQ BO 00018 1$: MOVW 118(IRAB), 192(IRAB) + 0851 
00B4 C9 7C Ad DO OOOTE MOVL 124 (1RAB) 180(IRAB) > 0852 
OOBE (9 0082 C9 BO 00024 MOVW 130(IRAB), 190(IRAB) : 0853 
0080 9 78 AQ DO 00028 2$: MOVL 120(IRAB), 176(IRAB) > 0860 
ooBc 69 0080 C9 BO 00031 MOVW  128(IRAB). 188 C1RAB) + 0861 
OOAC 69 78 «AD DO 00038 MOVL  120(IRAB). 172(IRAB) > 0863 
OOBA (9 0080 ¢9 B0 00056 MOVW 128(IRAB). 186(IRAB) > 0864 
00c3 —¢9 00c2 ¢€9 90 0004 MOVB  194(IRAB), 195(IRAB) > 0869 
50 00B4 CA 3C 0004C MOVZWL 180(IFAB). RO > 0870 
50 60 A9 CO 00051 ADDL2 96(IRAB), RO : 
60 89 60 00B4 CA 28 00055 MOVC 1B0(IFABS, (RO), @96(IRAB) : 
05 0005¢ RSB ; 


; Routine Size: 93 bytes, Routine Base: RM$RMS3 + 0000 


; «811 0874 1 


| 
| 
| 


32_V4.0-74 Page 17 
RSCKMS. SRCORMSGET.B32;1 °° (35. 


<=z 
zs 
Ww 
_) 
—> 
ow 
‘ee 
vw 
i 
v0vo 
ee 
— 
ono 
@ovo0 
cr 
-o 
wo 
os 
~~ 
row 
oOo 
o< 
—> 
wx 
ym | 
Bee 
<_—_ 
= 
“ow 
z= 
>-. 
now 
—wW 


RMSGET38 E 


> 
fo Je Te] 


; 813 75 1 2SBTTL ‘RMS$GET3B° 

; 18 ! GLOBAL ROUTINE RMS$GET3B : RLSRABREG = 

3 Me ef 1 lee 

3 1 79 1! 

; + ; 9 } : FUNCTIONAL DESCRIPTION: 

; 820 HY 1! This routine implements the get/find operation for the 

3 : 1 th : indexed file organization. 

; & 5 0885 1 ! CALLING SEQUENCE: 

; 824 paee 1! 

; 825 887 1! RMS$GET3() 

; 826 0888 1! 

; 827 0889 1 | INPUT PARAMETERS: | 
; 828 0890 1! 
: 829 0891 1! R11 Impure area pointer 

; 8350 0892 1! R10 IFAB == Pointer to IFAB 
; 831 0895 1! R9 IRAB -- Pointer to IRAB 

; 832 0894 1! R8 RAB -- petater to users RAB 

; 833 0895 1! ROP field options (NLK,ULK,RLK,LOC,NXR) 

: 834 0896 1: RAC field = (SEQ, or KEY, or RFA) | 
; 835 0897 1! RFA field if RAC = RFA . 
; 836 0898 1! KBF,KSZ,KRF if RAC = KEY and KBF,KSZ if RAC = SEQ and LIM set 
; 837 0899 1! UBF ,USZ -- if a GET 
; 838 0900 1! 

; 839 0901 1 =! IMPLICIT INPUTS: 

; 840 0902 1! 

; 841 0903 1! IRAB fields: 

; ats 0904 1! 

; 684 0905 1! IRB$V_UNLOCK_RP = current record should be unlocked before 

; 844 0906 1! accessing new record. 

; 845 0907 1! IRBSV_FIND_LAST = Last operation was a FIND. 

; 846 0908 1! IRBSV_SKIP_NEXT = Last qperexnen was sequential, the record 
; 847 0909 1! described by the nrp info is to be skipped 
; 848 0910 1! and the record beyond it becomes the new 
; 849 0911 1! record. 

; 850 0912 1! IRBS$L_KE YBUF (key buffer 1 or 2, maybe 3) 

; 851 0913 1! 

; 832 0914 1: IFAB fields: | 
; $2 0915 1! 
> 854 0916 1: IFB$B_PLG_VER 
; 855 0917 1! IFBSV-RU_RLK == if set, perfors pseudo record locking 
5 $28 0918 1! IFB$V_RUP - if set, Recovoery Unit is in progress 

; 85 0919 1: IFBSW-KBUFSZ = size of each keybuffer — 

; 858 0920 1! IFBSV_NORECLCK = record Locking not required, i.e., not 

; 859 0921 1! sharing the file and single stream only. 

: 560 44 § ' } IFBSV_WRTACC = if accessed for other than read only. 
; B08 89 4 1 ! OUTPUT PARAMETERS: 

: 86 0925 1! : 

3; 864 09 $ 1! RAB fields: 

; 865 9 1! 

; 866 928 1! RFA of record found 

: 867 Mey 3: STV if io errors 

; 868 0930 1! RBF ,RSZ -- if a GET 

; 869 0931 1! 


kK 4 
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; 870 932 1 ! IMPLICIT OUTPUTS: :] 
; 871 9 : 1! 3 | 
: 87 934 1! JRAB fields: 3 | 
: Be 38% IRBSV_UNLOCK_RP 7 
3 ' UNLOCK 3 

; 875 9 5 1 } IRBS$V_F IND_LAST : 1 
; 87 9 : 1! IRBSV_SKIP_NEXT 3] 
; 87 9 1! IRBS$B_RP_KREF 3 
; 878 0940 1! IRB$B_CUR_KREF 3 | 
; 879 0941 1! IRBS$L_KE YBUF (key buffer 1 or 2, maybe 3) 3] 
; 880 0942 1! IRB$L_RBF User buffer address and size : | 
; 881 9435 1! IRB$W_RSZ 3 | 
; 88 944 1! 3 | 
; 88 0945 1 ! ROUTINE VALUE: | 
; 884 O06 1! 3 | 
; 885 0947 1! Internal RMS status code | | 
; 886 0948 1! 3 1 
; 887 0949 1 ! SIDE EFFECTS: | 31 
; 888 0950 1! ‘ $1 
3 934 bee : Retrieved record maybe locked, and next record context is modified. : ! 
; 891 $983 1 !-- 3 1 
; 0954 1 : .1 
; 89 0955 BEGIN | 3 | 
; 894 0956 3 1 
; 895 0957 BUILTIN 3 1 
; 896 095 . = | 
; 897 0959 TESTBITSC; 3 1 
; 898 0960 3 1 
; 899 0961 EXTERNAL REGISTER 3s 1 
; 900 096 COMMON_RAB_STR; 3 1 
; 901 096 3; 1 
; 90 0964 GLOBAL REGISTER $1 
; 90 0965 R_REC_ADDR_STR, | : 1 
; 0966 R-IDX~DFN_STR; | 31 
; 905 0967 3 1 
3 0968 § LOCAL | 3 1 
; 907 0969 FLAGS : BLOCK(1), | | 
; 908 0970 STATUS; 3 1 
; 909 0971 | 
; ve 097 MACRO 3 1 
s OTT 097 AP_STATUS = 0,0,1,0 %, 3 1 
3 aig 0974 OK_WAT_STATUS = 0,1,1,0 %, | 3 1 
; 91 975 RU_DEL_STATUS = 0,2,1,0 2%; 3 | 
; 916 97 g 1 
: «915 097 | 
; 916 0978 ! Continue to attempt to get the next record under the following gs 1 
: att 0980 } circumstances: 3 
: 919 981 ! 1. The status returned from GET_RECORD indicates the next record has 3 | 
: 920 098 : been deleted and RMS's access mode is sequential or random by key 3 1 
: 921 098 : value. Any key of reference. This can only happen if RMS has had 3s 1 
; 9 § 984 ; to wait for a record lock to be granted (status returned will be : 1 
; 9 985 : RMS$_DEL), or PMS has positioned to and managed to lock a primary | 
3 ? : a data record that is marked RU_DELETE (status returned will be 0). : 
; 926 988 ! 2. The status returned from GET_RECORD is an alternate success status 3 1 


% 
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5 f 0988 } (OK WAT), and the key of reference is NOT the primary key. 
; 929 0991 ! 3. An IDX_DFN has been allocated for the aoy descriptor, indicating 
; 4 , 838 : there are no problems with the key of reference. 

: ¢ 0994 Force the key descriptor to be initially zero. 

: 934 99 iDX_DFN = 0; 

; 935 $999 FLAGS = 0; 

; = 0998 

; 937 0999 WHILE 1 

; 938 1000 dO 

3 $44 sf BEGIN 

; oh 1908 STATUS = GET_RECORD FLAGSEOR WAT STATUS. 

; ot Hh ' ; TESTBITSC(FLAGSCRU_DEL_STATUS])); 
3 945 100 : If an unqualified success, avoid the contorted mass of 

3 Bs8 1s logic below and exit immediately... 

; 948 1010 4 IF .STATUS<0,16> EQLU RMSSUC() 

> 949 1011 H THEN 

; 950 1Olg EXITLOOP; 

; 951 101 ; ; 

3; 9 1014 : Check the key descriptor after return from GET_RECORD. 

; 95 1015 ; ! If still zero, something wrong with the key of 

: 954 1016 ! reference, so exit loop. 

; 955 1017 3 : 

; 956 1018 ; IF .IDX_DFN EQLU 0 

; 957 1019 THEN 

; 958 1020 ; EXITLOOP; 

; 959 1021 

; 960 1058 6 IF NOT ((.STATUS<0,16> EQLU RMSERR(DEL) 

; 961 1025 5 

: 306 1024 § »STATUS EQLU 0) 

; 96 1025 4 

; 964 1026 4 -RABCRAB$B_RAC] NEQU RABSC_RFA) 

: 965 1027 3 E 

; 966 1028 4 IF NOT (.IDX_DFNCIDXSB_KEYREF] NEQU 0 

; 967 1029 4 AND 

; 968 1030 4 -STATUS<0,16> EQLU RMSSUC(OK_WAT)) 

; 969 1031 3 

: 970 1936 EXITLOOP; 

: 971 103 . a . 
; 1034 : Let us back off from the radical position above concerning the 
3s 97 1035 ! ambitious attempts to continue to get a record. We shoul 
: 974 1036 ! never go back for a record if all of the following are 

; 975 1037 ' true: 

: 976 1038 ‘ - status from GET_RECORD is RMS$_DEL 

3; 977 1039 : - primary key of reference 

; 978 1040 : - random access (keyed OR RFA access) 

: 979 1041 : - no dups on primary key 

: 980 H ok ‘ - exact key match 

; «(981 104 : , 

; 982 1044 ! Under these circumstances, it is at least useless to 

; «6983 1045 3 ! to back after a record, and sometimes downright WRONG! 
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; 984 104 ' 

; 985 104 

; 13e8 i IF (.STATUS<0O,16> EQLU RMSERR(DEL) 

: 988 1050 4 .IDX_DFNCIDX$B_KEYREF] EQLU 0 

: 356 1982 2 RABERABSB_RAC) NEQU RABSC_SEQ 

: 399 1988 d nor tox DFNCIDXSV_DUPKEYS) 

oo iS wo Penacenas x62) OF .en8CRAB8 X61) 

: ° “ V_K 

: 995 1989 3 HEN x 2 

; 996 1328 4 BEGIN 

3; 997 1059 4 STATUS = RMSERR(RNF); 

; 998 1060 4 EXITLOOP; 

; .999 1061 END; 

; 1000 1996 

; 1001 106 ! If RMS has to perform a re~pegtt toning. then either it had to have 

; 100 1064 ! waited for a record lock, or it positioned to a RU_DELETE marked 
; 100 1065 3 ! primary data record. Therefore, set the appropriate state bit either 
3; 1004 1066 3 ' of which will cause the correct lock to be released during 

3; 1005 1067 3 ! re=positioning, and so that the proper status will be returned if 

; 1006 1068 ; ' RMS is able to position to a record. 

: 1007 1069 ‘ 

; 1008 1070 3 IF .STATUS NEQU 0 

3: 1009 1071 3 T 

: 1010 O76 ; FLAGSCOK_WAT_STATUS] = 1 

3 1011 107 

3 Ole 1074 ; FLAGSCRU_DEL_STATUS] = 1; 

; 101 1075 

3 1014 1076 3 CHSMOVE (.IDX_DFNCIDX$B_KEYSZ), KEYBUF_ADDR(1), KEYBUF_ADDR(2)); 

3 1015 1077 2 END; 

3 1016 1078 2 

; 1017 1079 § ! NOTE: AP is 0 if no special action is needed to unlock the RP on errors 

; 1018 1080 ! produced due to user buffer/size errors. Otherwise it is 1. Save this 

3 1019 1081 ' status. 

: 1020 Ieee : 

; 1963 H+ + FLAGSCAP_STATUS] = .AP<0,1>; 

; 1098 1085 2 ! If RMS was successful at obtaining the next record, but at some earlier 
: 1024 1086 ' time was forced to do a re-positioning because it had to wait for a record 
: 1025 1087 ! lock, then change the status to an OK_WAT success. This can only happen 

; 1e6 4 when RMS is positioning by means of an alternate index. 
3 1058 1090 IF .FLAGSCOK_WAT_STATUS) 
3 9 1091 N 

; 1030 1936 - STATUS<0,16> EQLU RMSSUC() 

: 1031 109 N 

: 1036 1094 STATUS = RMSSUC(OK_WAT); 

: 103 1095 

3: 1034 1998 IRABCIRBSV_FIND_LAST) = 0; 

: 1035 109 

: 1936 Hh 44 Obtain user buffer address and size for later probe. 

; 1038 1100 IRAB Tey = ,RAB CRABSL_RBF); 

: 1073 V1ee IRAB CIRB$W_RSZJ = .RAB CRABSW_RSZ); 
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; 1041 1193 : it the user has set the RABSV_LIM bit in the ROP field on a sequential : 
: 1068 1104 ' $GET/SFIND RMS reports whether the specified key exceeds the key of the 3 1 
3; 104 1105 ' record found. 3; 1 
3 1044 1196 ' 3 1 
: 10465 110 IF .STATUS 3 1 
3 Ines 1108 3 1 
> 104 1109 (.RABCRABSB_RAC) EQL RABSC_SEQ) 3 1 
3 1048 1110 3 1 
3: 1049 1111 -RABCRABSV_LIM] 3; 1 
; 1050 1118 3 1 
3; 1051 111 BEGIN $1 
; 1028 1114 3; 1 
: ibe i116 OCA or ADDR LONG 
; 1055 1117 KEYSIZE; 3:1 
: 1056 1118 3 1 
: 1057 1119 KEYSIZE = .RABCRABS$B_KSZ); a. 
; 1058 1189 3 1 
; 1059 1121 IF .KEYSIZE EQL 0 3 1 
: 1060 1156 3 THEN 3 | 
: 1061 112 H 3 1 
: 1006 1124 IF .IDX_DFNCIDX$B_DATATYPE] EQL IDX$C_STRING $1 
3 106 1125 3 OR .IBX_DFNCIDXSB_SEGMENTS) GTR 1 3 1 
3: 1064 1126 HEN 31 
; 1065 1127 4 STATUS = RMSERR(KS2Z) 3 1 
: 1066 1128 3 3 1 
3: 1067 1129 3 KEYSIZE = .IDX_DFNCIDX$B_KEYS2); 3 1 
: 1068 1130 3 ‘ 3 1 
3: 1069 1131 4 BEGIN zg 1 
3; 1070 1136 4 3 1 
3 1071 1133 4 P 3 1 
3 1976 1134 4 KEYSIZE : BYTE; 3 1 
3; 107 lee 4 3 1 
3 1074 1136 4 IF .KEYSIZE GTRU .IDK_DFNCIDX$B_KEYSZ) 3 1 
3; 1075 1137 4 THEN 3 1 
: 1076 1138 5 STATUS = RMSERR(KSZ) $1 
3; 1077 1139 3 END; gs 1 
3; 1078 1140 3 | 3 1 
; 1079 1141 3 KBF ADDR = .RAB CRABSL_KBF); 71 
; 1080 P 1146 3 IFNORD(KEYSIZE, .KBF_ADBDR, {RABCIRBSB_MODE), 3 1 
; 1081 114 3 STATUS = RMSERR(RBF)); 3s 1 
3 Ose 1144 3 1 
; 108 1145 IF .STATUS g | 
: 1084 1146 THEN $1 
; 1085 1147 4 BEGIN 3 1 
: 1086 1148 4 AP = 3; ! Contiguous key compare 3 | 
: 1087 1149 4 a | 
3; 1088 1150 4 ! The key of the current record has been previcusly saved in 3 | 
; 1089 1151 4 ! keybuffer 2, and may now be used to determine whether the user 5 | 
3 19 1136 ? specified key Limit has been exceeded. 3 
3 1996 1128 ? IF RMSCOMPARE_KEY ( KEYBUF_ADDR(2), .KBF_ADDR, .KEYSIZE ) LSS 0 3 | 
3 1094 1138 4 STATUS = RMSSUC(OK_LIM); 3 | 
: 1095 115 ND; 5 | 
3: 1096 1158 g | 
: 1097 1159 END; 3 | 
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RSZ = .(.REC_ADDR + .RECORD_OVHD 
+ REC SIZE 
= IRC$C_DATSZFLD)<0, 16> 
ELSE 
RSZ2 = .REC_SIZE; 


REC_ADDR = .REC_ADDR + .RECORD_OVHD; 
END; 
: It will only be negeseery to unpack the primary data record 
! if its a prologue 3 file. 
IF (, IFABCIFB$B_PLG_VER] EQLU PLGSC_VER_3) 

BEGIN 

GLOBAL REGISTER 

R_BKT_ADDR; 


: If the key of reference is the primary key then signal 
' RMSUNPACK_REC that the primary ey for this data record maybe 
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1155 1 6 Fae | 
1156 1 3 s i 
1157 1 : 1 
1158 1 5 | 
1159 1 5 7 1 
1160 1 5 ; } 
1161 1 5 sh 
11 ¢ 1 4 s i 
11 1 4 $i 
1164 1 4 : 1 
1165 1 4 3h 
1166 1 4 3 i 
1167 1 5 3 1 
1168 1 6 $s } 
1169 1231 5 3; 1 
1170 1232 5 : } 
1171 1233 5 $ H 
11 ; 1234 5 3 i 
11 1235 5 ; i 
1174 1236 5 3; 1 
1175 1237 5 $s i 
1176 12 5 ! found in expanded form within keybuffer 2. eS 
1177 1239 5 i : \ 
1178 1240 5 IF .IRABCIRB$B_RP_KREF] EQLU 0 su 
1179 1241 5 THEN $k 
1180 iste 5 AP = 2 ; i 
1181 12463 5 ELSE 3 i 
1182 1244 5§ AP = 0; 2 1 
1183 1245 5 5 i 
1184 1246 5 RSZ = RMSUNPACK_REC(.IRABCIRBSL_RECBUFIJ,.RSZ); s i 
1185 1247 4 END; s ¥ 
1186 1248 4 : i 
By 14 1$9) g IF (.RABCRABSV_LOC] AND NOT (.IFABCIFBS$V_UPD)) : vi 
1189 1251 5 NOT (.BBLOCKC.IRABCIRBSL_CURBDB)], BDBS$V_NOLOCATE])) s i 
1190 1526 4 THEN 5 i 
1191 1253 5 BEGIN ! We can do locate mode get 3 1 
1192 1254 5 IF .IFABCIFBSB_PLG_VER] LSSU PLGS$C_VER_3 z 1 
1193 1255 5 THEN 7 i 
1194 1256 5 RABCRABSL_RBF] = .REC_ADDR 2 1 
1195 1257 5§ SE s ¥ 
1196 1258 5 RABCRABSL_RBF] = .IRABCIRBSL_RECBUF I; gs 
1197 1259 5 RABCRAB$SW_RSZJ = .RSZ; 3; 1 
1198 1260 5 END 3; 1 
1199 1261 4 ELSE 3: 1 
1200 1266 5 BEGIN ! We must do move mode get sk 
1201 1263 5 s i 
1606 1264 5§ LOCAL ie | 
120 1g: 5 USZ : WORD; 7 1 
1204 1 66 5 3 
1205 126 5 USZ = .RABCRABS$W_USZ); i i 
1206 1268 5 3 7 
1207 1269 5§ IF .USZ EQL 0 3:7 
1208 1270 § THEN 5 7 
1s 1271 6 BEGIN 3} 
1210 1 4 6 3; 
1211 1273 6 IF .FLAGSCAP_STATUS) 31 
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> 1269 1331 3 THEN 71 
; 1358 1 ¢ 4 BEGIN i J 
: 1e71 1 4 s 3 
; ! f : ¢ : Set up the next record context for all $GET operations. : : 

3 1274 1336 4 SETUP_NRP_DATA(); ei 
: 1275 1337 4 3 
3 1276 1338 4 : If dupes aren't allowed on primary key, save primary key value of ; 3 

3 1277 1339 4 ! this record in keybuffer 3 so reaccess and record lock window can B! 
3; 1278 1340 4 ! be avoided on subsequent random FIND on primary key (cobol does : 1 
> 1279 1341 4 ' this a lot). 1 
H 1580 1 tg 4 ‘ a}, 
; 1281 1345 4 IF NOT .IDX_DFNCIDX$V_DUPKEYS) 27 
3 1see 1344 4 THEN af 
; 128 130? 5 BEGIN Bi 
3; 1284 1346 5 27, 
> 1285 1347 § LOCAL : 7, 
> 1286 1348 5 TMP_REC_ADDR; 37 

; 1287 1349 5 ; 7 
: 1288 1350 5 TMP_REC_ADDR = .REC_ADDR; 7 
F 1289 1351 3 REC-ADDR = .RAB CRABSL_RBFI; : 1 
3; 1291 138 5 IF RMSNOREAD_LONG ( .RAB CRABSW_RSZJ, .REC_ADDR, ae i 
> 1292 1354 5 .IRAB CIRB$B_MODE) ) : 7, 
3; 1293 1355 5 THEN BY 
3 1294 1356 5 STATUS = RMSERR(RBF); Bi 
3 1295 1357 § Pp = 3; ' no overhead / expanded : 1 
; 1296 1358 6 IF (.STATUS $s} 
3; 1297 1359 6 37 
: 1298 1360 6 (.STATUS<O, 16> EQL RMSERR(RTB))) 3 1 
3: 1299 1361 5 N 3 3, 
; 1300 1368 6 BEGIN a 
: 1301 1363 6 37 

; 1302 1364 6 GLOBAL REGISTER 27, 
; 1303 1365 6 R_BDB; 3 7 

: 1304 1366 6 3 1 

3 1305 1367 6 RMSRECORD_KEY (KEYBUF_ADDR(3)); | sy 
: 1306 1368 5 : 7 1 
3; 1307 1369 5 REC_ADDR = .TMP_REC_ADDR 3 i 
; 1308 1370 4 END; me | 
3; 1309 1371 3 END; ie | 
3; 1310 1372 3 : i 
3; 1311 1373 3 END su 
; 1316 1328 § ELSE ¢ 
3; 131 1375 BEGIN 31 
3; 1314 1376 3 3 i 
: 1315 1377 3 ! UNLOCK_RP is used as a flag on error conditions to indicate whether Fe 
; 1316 1378 3 ! the record described by the current record (rp) information is to be 2] 

3 1317 1379 ! unlocked or not. This will be the case when buffer errors are at 
; 1318 1380 ! discovered after the new record has been locked, or if the current : 1 

3; 1319 1381 ! record before this operation was not unlocked at the beginning of 3 
: 1320 156 ! this operation. In both cases the RFA of the record to unlock will be rm | 
3 1321 138 ! found in IRBSL_NEXT_VBN and IRBSW_NEXT_ID. In the former case, | :] 
; 1356 1384 ! because these Fields contain the RFA of the ‘‘next’’ record, and in the 3% 
; 132 1385 ! latter, because the only reason why the current record was not 2. 
3 1324 1386 ' unlocked at the beginning of the operation because it itself was : 7 
3 1325 1387 ! being retrieved by the operation, and if this was the case then 2 | 
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RMSGET3B 14-Sep-1 3:01:24 DISKSVMSMASTER: cing? She RM3GET.B32;1 
88 ' these same fields would contain the RFA of the current record from 
3 when it had been or‘ginally locked. 


if TESTBITSC(IRABCIRB$V_UNLOCK_RPJ) 
RMSUNLOCK (. JRABCIRBSL_NEXT_VBNJ, .IRABCIRBSW_NEXT_IDJ); 
If end-of-file has been reached, set the corresponding IRAB bit. 
IF _.STATUS EQL RMSERR(EOF) 
IRABCIRBSV_EOF) = 1; 
: There is no longer a current primary data record. 
IRABCIRBSL_UDR_VBNJ = 0; 


oovono 
wr 


IRABLIRBSWUDR-1D] = 0; | 
END; | 
RABCRABSL_RFAO] = .IRABCIRBSL_UDR_VBNI; | 
RABCRABSW_RFAG] = .JRABLIRB$W-UDR~1D); 
0; 


1 at FIND] = 


nae REGISTER 


IF (BDB = .IRABLIRB$L_CURBDB]) NEQ 0 
RMSRLSBKT(0); 

IRABCIRBSL_CURBDB) = 0; 

RETURN .STATUS 
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{ 
| 
| 
| 
END; 
| 
| 
OOFC 8F BB 00000 RMSGET3B:: 
PUSHR #*M<R2,R3,R4,R5,R6,R7> : 0876 
5E 10 C2 00004 SUBL2 #16, SP ; | 
57 04 00007 CLRL IDX’ DEN : 0996 | 
04 af D4 00009 CLRL FLAGS 3 0997 | l 
50 D4 6909¢ 1$: CLRL : 1005. 
02 04 AE 02 E5 0000: BBCC #2, FLAGS, 2$ : | 
50 06 0001 INCL : 
04 AE 01 g1 EF 00015 2$: EXT2y “, #1, FLAGS, R1 ; | 
7E 50 1 c9 0018 BISL3 R1. RO, -(SP : | 
0000v 0 90015 BSBW GET_R E CORD + 1004. 
5E 04 CO 000 : ADDL2 : 
bE 0 pO 000 MOVL RO. Sratus ; 
01 6— 81 990 8 CMPW $1 TATU + 1010 
6C 13 00028 BEQL ; 
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1h-se -1984 01:45:39 VAX=11 Bliss-32 v4.0-74 Pp 9 RM3 
RMSGET3B 12-88-1398 04:63:32 DISKSVMSMASTER:CRMS.SRCIRM3GET.B32:1 3 v04 
22. AB 08 AE 80 00180 28$: mOvw  RSZ, 34(RAB) 3 1259 : 1 
71 f 183 a5: BRB $f + 1249 31 
50 20 A&B 8B 18 O$: MOVW Sa RAS) USZ : 1267 3 7 
OF 1 1BB BNEQ $ 3 1269 3} 
04 04 AE 1BD BLBC FLAGS, 31$ : 1273 31 
05 ag 8 001C1 BISB2 #32 3 (1RAB) + 1275. 31 
6E 86F4 BF 3C O01CS 318 MOVZ2WL #34548, STATUS + 1277 1 
‘ 11 OO1CA BRB E $ + 1269 31 
OC AE 24 AB DO OOICC 32$ MOVL 6(RAB), UBF_ADDR 3 1284 2 
AE Ha Biya SHE ee 8 
Oc AB 08 AE 3¢ 90107 MOVZWL RSZ, 12(RAB) + 1289. : é 
08 AE 5 80 010¢ OVW Us? RSZ : 1290 ; 
(Xa B1A8 BF 3C OO1ED MOVZWL #33192, STATUS + 1291 : 
7E OA AS 9A OO1ES 33$:  MOVZBL 10(IRAB), -(SP) + 1296 i 2 
10 AE DD OO1E9 PUSHL UBF_ADDR : 3 2 
7E 10 AE 3¢ OOiEC MOVZWL RSZ> =(SP) : i 
00006 30 O1FO BSBW _RMSNOWRT_LONG : : 2 
5E OC CO OO1F ADDL2 #12, SP 3 s¢ 
OF 50 €9 001F6 BLBC RO, 35$ : : 2 
04 04 AE €9 001F9 LBC ~—- FLAGS, 3 + 1298 : 2 
05 ag 20 88 001FD BISB2 #32, §(IRAB) + 1300) far] 
6E B6EC BF 3C 90201 34$: MOVZWL #34540, STATUS : 1302) $e 
20 11 00206 BRB 37$ + 1294 | : 
22 AB 08 AE BO 00208 35$:  MOVW  RSZ, 34(RAB) : 1306. : 2 
28 A8 0c AE 00 0020D MOVL UBF _ADDR, 40(RAB) : 1307. :¢ 
03 00B7 CA 91 00212 CMPB Ss 8 3TIIFABS, : 1308 3 2 
08 1€ 00217 BGEQ 36$ : er | 
OC BE 66 08 AE 28 00219 MOVC3 RSZ, (REC_ADDR), @UBF_ADDR + 1310) : 2 
07 11 OOOTF BRB 37$ : : 2 
oc BE 68 B9 08 AE 28 b055. 36$: MOVC3 RSZ, @104(IRAB), @UBF_ADDR 3 1312) s¢ 
07 6£ E8 00228 37$:  BLBS STATUS, > 1324) : 2 
81A8 BF 6— 81 00208 38$:  CMPW STATUS. #33192 : 1326. : 2 
4C 12 00230 BNEQ 43$ : i 
6D 05 Ad 01 £0 00232 39$: BBS #1, SCIRAB), 46$ : 1330) : 2 
FD69 30 00237 BSBW § SETUP_NRP DATA : 1336) : 2 
66 1c «6A? «EB 00 3A BLBS  28(IDR DFA), 46$ > 1343, 32 
52 56 DO 0023E MOVL  REC_ADDR, TMP_REC_ADDR : 1350. 34 
56 8 A&B 00 baScq MOVL 40(RAB REC_ADDR 3; 1351) 2 
7E A Ad 9A 00245 MOVZBL 10(IRABS, -(SP) > 1354) 3 2 
56 DD 00249 PUSHL REC_ADD ; 1353) 32 
7E 22 AB 3C 00248 MOVZWL 34(RAB), -(SP) ; | i 
00006 30 0024F SBW  RMSNOREAD_LONG : | 3 2 
5E o¢ C6 3 ADDL2 #12, SP : : 3 
0 0 : BLBC RO, 40$ : : 
6E 8654 BF 3¢ 0 58 MOVZ2WL #34388, STATUS : 1356 i 
5¢ 03 DO 00250 40$:  MOVL : : 1357 : 2 
67 6E EB 0026 BLBS STATUS, 41$ > 1358. i 
B1A8 = BF 6— B81 0026 CMPW = STATUS. #33192 : 1360. ; 3 
OF 12 00 BNEQ 4 : : 
50 00B4 CA 3C 0026A 41$:  MOVZWL 180(IFAB), RO : 1367) : 
60 8940 3F 00 of PUSHAW @96(IRAB)(RO} ; : 
00006 0273 BSBW = RMSRECORD_KEY ; : 
SE a £ 0 1 ADDL2 #4, SP : : 
56 2 0 79 42$:  MOVL  $TMP_REC_ADDR, REC_ADDR > 1369 | : 
6 11 0027C¢ BRB 4 > 1324. : 
0c 04 a9 D €5 OO27E 43$:  BBCC #13, 4C(IRAB), 44$ : 1391, : 
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16-Sep-1984 01:45:39 VAX-11 Bliss-32 V4.0-74 Page 31 
GET_RECORD 1o-8 08-1 ope eH TTX SUMEHASTERS LUNE SRCIRMSGET.B32;1 . (4) 
ZSBTTL ‘GET_RECORD' 
ROUTINE GET-RECORD (REPOS_STATUS) : L_GET_RECORD = 
ee 


FUNCTIONAL DESCRIPTION: 
This routine implements the actual retrieval of the 
date record for internal RMS usage. The use request 
is checked for valid input parameters and all internal state 
information is setup to retrieve the record. 
Then current record is unlocked if required and the 
requested record retrieved and locked if required. All NRP 
update data is saved in the IRAB but is not placed in the 
NRP fields of the IRAB. 
CALLING SEQUENCE: 
GET_RECORD() 
INPUT PARAMETERS: 
REPOS_STATUS - if 1, then RMS is performing a re-positioning. 
IMPLICIT INPUTS: 
Same as for RMS$GET3 or RMSFIND3 


! OUTPUT PARAMETERS: 
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IRAB context setup for retrieved record: 


CURBDB,RFA_VBN,RFA_1D,SAVE_POS,F IRST_VBN 
FIRST_ID,REC_ADDR,NEXT_VBNTNEXT_ID 


RAB The DCT field is cleared in all cases. 
If the value of the routine is a success status then 
the AP = 0 if no apec tet action is needed to unlock the RP 
and is 1 if special action is needed, on errors detected after 
this routine. 
IMPLICIT OUTPUTS: 
IRB$V_UNLOCK_RP 
IRB$V_FIND_LAST = 0 
IRB$B_RP_KREF 
ROUTINE VALUE: 
Internal RMS status code 
SIDE EFFECTS: 
Retrieved record maybe locked. 


Old current record ey have been unlocked, 
The data bucket for the retrieved record is accessed. 
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' NLK is ignored if the process is in a Recovery Unit. 

! If a primary data record is found to have been deleted within a Recovery 
: Unit it might be deleted for good. 

: If a primary data record is found to have been updated within a Recovery 
Unit it might be re-formatted. 
lee 


Pere 


) a ee et et ee ee et ee ee ee et ee 
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EXTERNAL REGIST 
R_REC_ADDR 


COOCCWVOOOOOOOOOMME 
WD O OOo NO RON OLOoD ae 


ABEL 
UNLOCK, 
KEY; 


IRABCIRB$B_CACHEFLG 
IRABLIRBSW SRCHFLAG 


IRABLIRBSV~DUP) 


: Based on the record access mode (RAC) of this operation (GET/F IND) 
; set up the IRAB RP fields, key buffer 2 etc to retrieve the record. 


wm 
Tee) 
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RABLRABSL_DCT) = 0; 


: Get record block 1 --- set up the IRAB search context data to get the. 
! record the user is requesting, and unlock the current record if this is 
. required. 


PANAMA ANU BB EEE EE PW 
OOONAOUE WN OC OBNOUSWN—O” 


s 


OCK : 
BEGIN 
CASE RABLRABSB_RAC] FROM RABSC_SEQ TO RABSC_RFA OF 


GAAS 
VrPwnN— 


CRABSC_SEQ) : 


+ 
' Sequential Access: 


' 

} 

: 

!  $etup to retrieve the record associated with the NRP if this 
i ey and the last operation was not a FIND or if this is 
Se . 

' 

: If last operation was a FIND and this operation is a GET then 
: retrieve record which is described by the NRP if that FIND was 
sequential. 
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3} 
3; 7 
; 7 
; 7 
3 1 
3 7 
3 7 
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If the FIND was random then change the NRP data for the record 
which was found and retrieve it. 


Note that a sequential FIND ros Loutos a random FIND returns to 
the sequential next record (NRP). That is to say that the 
} random operation will not change the NRP VBN and ID fields. 
BEGIN 
IF .IRABC IRBSV_CON_EOF J 
RETURN RMSERR(EOF); 
IF (. IRABCIRBSV_F IND_LASTJ 
re NOT (. JRABCIRB$V_FINDJ)) 
BEGIN 
! NOTE: keybuffer 2 contains key value, RP_KREF has key of 
: reference, RP_VBN and RP_ID contains record's RFA/RRV, and 
SAVE_DUP contains the duplicate position count. 


IF TESTBITSC(IRABLIRBSV_SKIP_NEXT]) 
THEN 


el el el ee ee 


! Last find was sequential so retrieve the record described 
! by the NRP unless RMS is already positioned at the end 
of the file. 


if .JRABCIRBSV_EOF) 
RETURN RMSERR (EOF) 


eos RMSKEY_DESC(. IRABCIRBSB_CUR_KREF J) 


Last operation was a find random and this operation is a 
get sequential. Setup the local NRP context so that this 
same record will be retrieved. Since there has been no 
intervening operation, calling SETUP_NRP_DATA will 
accomplish this. 


Ew momrmann 
m 


BEGIN 
ETUP_NRP_DATA(); 
RMSKEY_DESC(. IRABLIRBSB_RP_KREF J); 


IRABCIRBSB_KEYSZ) = .1DX_OFNCIDX$B_KEYSZ]; 


! Unless no lock is desired on this record (and the process 
! is not within a Recovery Unit), leave this block to avoid 
! unlocking the current record. This avoids a potential 

! window where the record is unlocked as it is reaccessed on 
this get operation. 
1 


F NOT .RABCRABSV_NLK) 
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RETURN_ON_ERROR (RMSKEY_DESC(.RABLRABSB_KRFJ)); 
KEYSIZE =". RABLRABSB_KSZ); 


Check and setup for user key value. 


iF .1DX_DFNCIDX$B_DATATYPE) EQL IDX$C_STRING 
OR .IBX_DFNCIDXSB_SEGMENTS) GTR 1 


BEGIN 
IF ((.KEYSIZE EQL 0) 
OR 
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RM3GET 16-Sep-1984 01:45:39 VAX=11 Bliss-32 V4.0-74 Page 34 RMS 
04- GET_RECORD 12-808- 1382 ORG: 4 NLEKSVMGHASTERSLUMS SRCIRMSGET.832;1 ° (4) | v04 
3: 1 1597 OR 
3; 1 159 - IFABCIFBSV_RUPJ 
: 1538 159 HEN 
; 1539 1600 LEAVE UNLOCK; 
; 1540 1601 
3; 1541 1006 END 
3: 1 og 16035 4 ELSE 
3; 154 1604 BEGIN 
3: 1544 1605 
: 15465 1o8 ! Return immediately if already at end-of-file. 
: 1546 160 ‘ 
; Ht 934 1608 IF _ .IRABCIRB$V_EOF J 
: 1548 1609 
3 1549 1610 RETURN RMSERR(EOF); 
; 1550 1611 5 
: 1551 161g 3 IRABCIRBSV_SKIP_NEXT] = 1; | 
; 1336 161 | 
3 139 1614 5 ! First time call after SCONNECT or SREWIND. Then what we 
3; 1554 1615 5 ! want to retrieve is the very first record, so don't skip 
3; 1555 1616 5 ' next record. 
; 1556 1617 5§ : 
3; 1557 1618 IF .IRABCIRBSL_CUR_VBN] EQL 0 
3; 1558 1619 THEN 
3 1323 1o89 : IRABCIRBSV_SKIP_NEXT] = 0; 
s 136! iS 5 RETURN_ON_ERROR (RMSKEY_DESC(.IRABCIRBS$B_CUR_KREF])); 
H 1268 1624 2 IRABCIRB$B_KEYSZ] = .IDX_DFNCIDX$B_KEYSZ); 
3 1564 1625 5 CHSMOVE (. 1BX_DFNCIDX$B_KEYSZJ, KEYBUF_ADDR(1), KEYBUF_ADDR(2)); 
3; 1565 1626 4 END; 
: 1566 1627 4 
3; 1567 1628 END; 
3; 1568 1o¢9 
3: 1569 1630 CRABSC_KEY) : 
; 1570 1631 KEY 
3 1571 1Oe6 4 BEGIN 
3 1378 1633 4 
3; 157 1634 4 LOCAL 
3; 1574 1635 4 KEYSIZE : BYTE 
> 1575 1636 4 KBF_ADDR : LONG; 
3; 1576 1637 4 
3 1577 1638 4 IRABC IRBSV_CON_EOF J] = 0; 
3; 1578 1639 4 
3; 1579 1640 4 IRABCIRBSV_SKIP_NEXT] = 0; 
; 1580 1641 4 
3; 1581 1066 4 
3 1286 16435 4 
; 158 1644 4 
3; 15 1645 4 
s 15 1oe8 4 
3; 15 1647 4 
3; 15 1648 4 
3 15 1649 4 
3; 15 1650 
3; 15 1651 
s 15 1 § 
3 15 1 6 
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: ’ 33 1656 (.KEYSIZE GTRU .IDX_DFNCIDX$B_KEYSZ])) 
; 1595 1928 RETURN RMSERR(KSZ); 

; 1596 165 

; 1597 1658 END 

: 1598 1659 4 ELSE 

; 1599 1660 2 BEGIN 

; 1600 1661 

; 1601 1666 é IF .KEYSIZE EQL 0 

; 1oR6 166 THEN 

3 bet 1608 5 KEYSIZE = .1DX_DFNCIDX$B_KEYSZ); 

; 1605 1666 2 IF_ .KEYSIZE NEQU .IDX_DFNCIDX$B_KEYSZ] 

: 1606 1667 5§ 

: 1607 1608 5 RETURN RMSERR(KSZ); 

: 1608 1669 5 

; 1609 1670 4 END; 

3; 1610 1671 4 

; 1611 1676 4 IRABCIRBSB_KEYSZ) = .KEYSIZE; 

: lel¢ 1675 4 KBF_ADDR = .RAB CRABSL_KBFI; 

3; 161 P 1674 4 IFNORD(KEYSIZE, .KBF_ADBDR, [RABCIRBSB_MODE), 
> 1614 1675 4 RETURN RMSERR(KBF)); 

3: 1615 1676 4 

3; 1616 1677 & ! Move the user's key into keybu/ fer 2. 

3; 1617 1678 4 : 

; 1218 Hs 34 : CHSMOVE(.KEYSIZE, .KBF_ADDR, KEYBUF_ADDR(2)); 
3 16<0 198) : If key type is packed decimal then check it for valid nibbles. 
; 1os¢ 1683 2 IF .IDX_DFNCIDX$SB_DATATYPE] EQLU IDX$C_PACKED 
3: 1624 1685 4 RETURI __ON_ERROR (RMSPCKDEC_CHECK()); 

> 1625 1686 4 

: 1626 1687 4 ! Check that key match is logically consistent. 
3; 1627 1688 4 : 

: 1628 1689 4 IF .RABCRABSV_KGE) 

; 1oe? 1690 4 THEN 

: 1650 1691 4 

; 1631 1636 4 IF .RABCRABSV_KGT) 

; 1036 1693 4 

: 163 1694 5 RETURN RMSERR(POP) 

3 1634 1695 4 E 

: 1635 1696 5 BEGIN 

; 1636 1697 5 IRABCIRB$V_SRCHGE) = 1; 

3; 1637 1698 5 LEAVE KEY 

: 1638 1699 5 

3; 1639 1700 5 END 

: 1640 1701 4 ELSE 

3; 1641 1706 4 

; 1o4@ 1703 4 IF .RABCRABSV_KGT) 

3; 164 1.046 4 THEN 

3 1644 1705 5 BEGIN 

3 1645 1706 § IRABCIRB$V_SRCHGT) = 1; 

: 1646 1707 5§ LEAVE KEY 

3 164 1708 5 

3; 1648 1709 4 END; 

3 1649 1710 4 
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v04-000 GET_RECORD 
; 1650 1711 4 
; 1651 Wei¢ 4 
3 1626 1715 4 
; 165 1714 4 
3: 1654 1715 4 
3 1655 1718 4 
3; 1656 1717 & 
; 1657 1718 4 
: 1658 1719 4 
; 1659 1720 4 
: 1660 1721 & 
: 1661 17 ¢ 4 
3 1996 17 4 
3: 166 1724 4 
> 1664 1725 4 
> 1665 1758 4 
> 1666 1727 & 
: 1667 1728 4 
: 1668 HA 44 4 
3; 1669 1730 4 
; 1909 1731 4 
: 1671 1732 4 
3 1672 1733 4 
3 1673 1734 4 
3 1674 1735 4 
3 1675 1736 4 
3; 1676 1737 & 
: 1677 1738 4 
3; 1678 1739 4 
: 1679 1740 4 
3; 1680 1741 5 
3: 1681 1706 5 
3; 1682 1743 § 
3; 1683 1744 5 
3; 1684 1745 5 
3; 1685 1746 5 
3; 1686 1747 5 
3; 1687 1748 5 
3: 1688 1749 5 
3: 1689 1750 5§ 
: 1690 1751 § 
3; 1691 1736 4 
: 169¢ 1753 5 
3: 169 1754 : 
3: 1694 1755 

3; 1695 1756 5 
: 1696 1757 § 
3: 1697 1758 5 
3; 1698 1759 5 
3; 1699 1760 5§ 
: 1700 1761 5 
: 1701 1766 5 
: 1702 1763 5 
: 1703 1764 5 
3; 1704 1765 5 
; 1705 1766 5§ 
; 1706 1767 § 
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At this point we have determined that this a random access for an 
exact match by key. Now try to find out if this is or the rut 

s is wi 


! 

: 

: current record, i.e., t the same one we just got. 

: be checked only for primary key. The following conditions must be 
met to take this optimization: 

! Previous operation was a GET. 

: This operation is for primary key. 

: Duplicates aren't allowed on primary key. 

: The full key size is being used. 

: The key value matches the saved or inary key value of the 

: _ current record (in keybuffer 3). 

: There is a current record (rp_vbn neq 0). . : 

: The current record is already locked, if locking required. 

The new record is to be locked, if locking required. 

' 
I 


F - RABLIRBSV_F IND_LAST] 
. 1DX_DFNCIDX$B_KEYREF] NEQ 0 
y* LOX.DFNCIDXSV_DUPKEYS] 
LEAVE KEY; | 
IF ;, JRABCIRBSB_KEYSZ1 NEQ .1DX_DFNCIDX$B_KEYSZ] 
LEAVE KEY; 
BEGIN 


LOCAL 
SIZE; 


SIZE = .IRABCIRBSB_KEYSZ); 

it a CHSEQL(.SIZE, KEYBUF_ADDR(2), .SIZE, KEYBUF_ADDR(3)) 
LEAVE KEY; 

END; 

BEGIN 

LOCAL 
VBN; 

if <ven = , IRABCIRB$L_UDR_VBNJ) EQL 0 

LEAVE KEY; 

If record locking is required, make sure this record is already 

locked, otherwise it may be deleted or locked by another 

accessor. Also that the new record is to be locked also, 

otherwise there is posers to- 57, OF obscure window where it could 


be deleted while reaccessing the bucket after the current lock is 
released. 
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; 1707 1768 : 

; 1708 1769 IF NOT .JFABCIFBSV_NORECLK) 

; 1709 1770 

; 1710 1771 6 (. IFABCIFBSV_RU_RLKI 

3; 1711 ire 6 AND 

3 at 177 2 . IFABCIFB$V_RUPI) 

3; 171 1774 THEN 

: 1714 1775 6 BEGIN 

; 1715 1778 6 

: ay 1777 6 LOCAL 

; 171 1778 6 ST; 

; 1718 1779 6 

3; 1719 1780 6 IF .RABCRABSV_NLK] 

; 1720 1781 6 AN 

; 1721 17R6 6 NOT .IFABCIFBSV_RUPJ 

: ise 17 6 N 

; 172 1784 6 LEAVE KEY; 

3 17s 1785 6 ; 

; 1725 1786 6 ! If the user has requested waiting for record phan 

; 1726 1787 6 : disable such waiting at this time. RMS does not want to 

; 1727 1788 6 ! wait because it is Just interested in whether this stream 
; 1728 1789 6 : has locked the record or there is a window. RMS does not 

3 1729 1790 6 ! want to wait for it here if it has to. The lock logic later 
: 1730 1791 6 ! on will do the waiting if it is necessary. 

3 1731 fa 6 

3 1732 1793 6 if ,RABCRABSV_WAT) 

; 1735 1794 6 THEN 

3 He os 1795 6 IRABCIRB$V_NO_Q_WAIT] = 1; 

3 1735 1796 6 

$ i738 Ad ? ST = RMSQUERY_LCK(.VBN, .IRABCIRB$W_UDR_IDJ); 

; 1738 1799 7 IF .ST<O, 16> NEQU RMSSUC(OK_ALK) 

; 1739 1800 6 THEN 

; 1740 1801 6 LEAVE KEY 

3 1741 O08 6 

3 ie 1805 5 END; 

; 174 1804 5 

3 1744 1805 4 END; 

; 1745 1806 4 ; ; 

; 1746 1807 4 ! If we are here we have determined that this is the same record 
3 1747 1808 4 ! that we already have locked as the current record. Flag that 

3; 1748 1809 4 ! state by setting DUP. By leaving the unlock block, the current 
3 1749 1810 4 ! record is not unlocked. 

; 1750 1811 4 : 

3; 1751 aig 4 ' >>>=====> NOTE <==s2=<<<¢ 

3 1736 18135 4 : ; oe ee 

3 175 1814 4 ! Setting DUP will cause us to fall into an optimization below 

3 1754 1815 4 ! which will change our access to sequential in order to quickly 
3 i799 1816 4 ! reaccess the record that we have been ohh on (and should 

3; 1756 1817 4 ! now have locked). There are some prepiens with this way of 

; \72t 1313 ? : thinking, especially when the following are true: 

3; 1759 1820 4 ! = we just had this record, and released it (which means 

; 1760 1821 4 : that our record context is STILL INTACT) 

: 1761 18s¢ & ! = the record we were waiting on was deleted after we 

; 1706 1823 4 ; released it 

3; 176 1824 4 ! = keyed access 
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= exact match by primary 
= no dups 


' 
i 
: The above conditions will give us the first non-deleted record 

. regardless of ney (since we temporarily used sequential access). 
: And since KEYBUFFER 3 still has the key from when we last had 

: this record (before we released it), it will match our search 

: key. I have attempted in RMS$GET3B to prevent coming back here a 
! second time if these conditions are true. 


IRABCIRB$V_DUP) = 1; 
LEAVE UNLOCK; 


END; ! of block KEY 
CRABSC_RFA] : 


! RFA access =~ check RFA for legality and sets for primary key 
! access for next record pointer (NRP) data. 


! 
BEGIN 


IRABC IRBSV_CON_EOF J] = 0; 
IRABCIRB$SV_SKIP_NEXT] = 0; ! flag random access 


IF .RABCRABSL_RFAO) EQL 0 
4 RABCRABSW_RFAGI EQL 0 
RETURN RMSERR(RFA); 
RETURN_ON_ERROR (RMSKEY_DESC(0)); 
END; 


COUTRANGE) : 
RETURN RMSERR(RAC) ; 


TES; 
The current record is now unlocked before accessing the new record, 
unless it has already been determined that the new record is the same as 
pe 4h current record, in which case this block was left and this code 
s skipped. 


Fg e eU TSC LIRARL IRDRY LOCK BPD) 


md er me et me 


If RMS is performing a re-positioning then unlock the record | 
positioned to during the previous positioning attempt; otherwise, 
unlock the current record (locked during the previous positioning 
operation) if there is one. 


REPOS_STATUS 
RMSUNLOCK (.JRABCIRBSL_NEXT_VBNJ, .IRABCIRB$W_NEXT_IDJ) 


4 
i 
; 
AF 
THEN 


eo 2. 


ozro may 
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C200 CD 


LSE 
IF JRABCIRBSL_UDR.VBNI NEQU 0 
RMSUNLOCK (.IRABCIRBSL_UDR_VBN], .IRABCIRBS$W_UDR_IDJ); 


0009 0D 00 CD 
CO NOUN END 


co.00 00 CD 


on 


3 
8 END; ! of block UNLOCK 
4 ; TRABCIRBSB_RP_KREF] = .IDX_DFNCIDX$B_KEYREF]; 
829 ! Get record block 2 == position and porters lock logic for record which 
: the IRAB search context data describes. 
8 BEGIN 
833 
834 LOCAL 
8 STATUS; 
8 
8 
8 
8 


IF NOT (STATUS = 
BEGIN 


Ww 


LOCAL 
RAC : BYTE; 


RAC = .RABCRABS$B_RAC); 
Fe a es ! re-accessing current record 
BEGIN 


Perr 


! If next record info also for primary key, then use sequential 
! postioning code and nrp info - it's faster. irb$v_skip_next 
! will be clear in this case so that record itself js retrieved. 
ASSUME _C(RABSC_SEQ, 0); 
sneaky way to set rac = rab$c_seq 
RAC = .JRABCIRB$B_CUR_KREF]; 
a eed NEQ 0 ! when cur_kref = 0. 
RAC = RABSC_RFA; 
END; 
CASE -RAC FROM RABSC_SEQ TO RABSC_RFA OF 


2 Oo Od Oo OS On OD 
FEFTSSRATAL ALARA RE RE RE eae 


Rtoted 


NOUS WIN—O0OO~ 


Sequential access. 

CRABSC_SEQ] : STATUS = RMS$POS_SEQ(); 
Random access by key. 

CRABSC_KEY] : STATUS = RMSPOS_KEY(); 
Random access by RFA. 
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GET_RECORD 1e-8ep-19 4 93:53 3G DLEKSVMSMASTER SEAMS. SRCIRM3GET B32; 1 le (4) 
+14 CRABSC_RFA] : STATUS = RMSPOS_RFA(); 
941 TES 
acs 
94 END) 
944 
oe? RETURN .STATUS; 
$7 : Setup record pointer (RP) to the RFA/RRV of retrieved record. 

949 IRABCIRBSW_NEXT_IDJ] = RMSRECORD_ID(); 
951 AP = 3; 
926 

37 BEGIN 

55 GLOBAL REGISTER 

56 R_BDB; 

57 

58 

59 


IRABLIRBSL_NEXT_VBN] = RMSRECORD_VBN(); 


! Move the key of the syreragety current record into keybuffer 2 in 

! preparation for updating the local NRP context. It will not be necessary 
: to extract the key, if positioning was done by means of an alternate key 
! index, because as part of that positioning, the key would have been moved 
into keybuffer 2. 

IF .JRABCIRB$B_RP_KREF] EQLU 0 

THEN 


! If any of the following conditions holds, the key of the internally 
! current record (which must be a primary data record) must be 
extracted from the record itself. 
i 4, If the file is a prologue 1 or 2 file. 
: 2. If the record was retrieved randomly. 
; ae Af ney compression is not enabled in this wer of reference. 
4. If deleted records were encountered during the positioning. 
if ((, IFABCIFBSB_PLG_VER] LSSU PLGS$C_VER_3) 

(. RABCRAB$B_RAC] NEQU RABS$C_SEQ) 

NOT .IDX_DFNCIDXS$V_KEY_COMPR] 

. IRABCIRB$V_DEL_SEEN]) 
THEN 

BEGIN 


GLOBAL REGISTER 
R_BDB; 


WOOOOOOODOOOOOODOOODODOODOOODOODOOOWOO 


SO 00.00 G0 000000 00 00 00 09 I NIN INN NI RRR OOD 
Bree SSS SR ES SSN OAR UN OOo eA row 


oowoowowowovono 


3 


AP = 0; 
RMSRECORD_KEY (KEYBUF _ADDR(2)); 
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; 1935 19 4 ! If this is a prologue 3 file, and RMS is gost tioning sequentially, : 
; 19 1997 & ! then RMS may use the key of the Last retrieved record, stored in ; 
3; 19 1998 4 ! keybuffer 1 to supply ny characters front compressed off the current ; 
; 1938 1999 4 ! key provided no intervening records were encountered between the ; 
; 1939 000 4 ! last retrieved, and the new record. ; 
; 1940 001 4 ! 3 
: 1941 bee 3 ELSE ; 
; Hk 8 4 BEGIN : 
3 194 04 4 ; 
> 1944 005 4 LOCAL $ 
: 19465 006 4 KEY : REF BBLOCK; $ 
$ re 007 4 F 
3; 194 008 4 : 
3; 1948 009 4 KEY_LEN = 9.0.8.8 i, : 
3: 1949 010 4 CMP_CNT = 1,0,8,0 2%; . 
; 1950 011 4 $ 
3 1951 O12 4 KEY = .REC_ADDR + RMSREC_OVHD(O); : 
3 1326 sot 4 3 
3; 195 014 4 CHSCOPY en a KEYBUF_ADDR(1), : 
3 1954 2015 4 -KEYCKEY_LE KEY+2 ; 
: 1955 2016 4 (KEY + .KEYLCKEY LEN] + 1), 3 
: 1956 017 4 - IDX_DFNCIDX$B_KEYSZ], KEYBUF_ADDR(2)); s 
3; 1957 018 END; 3 
: 1958 019 ; . $ 
: 1959 2020 ! Don't do any record-locking if there aren't any writers of the file, and 3 
3 1309 303 if pseudo record locking is not to be done. ; 
3 1Sce $58 IF .IFABCIFBSV_NORECLK] 3 
: 196 2024 3 F 
3: 1964 2025 4 NOT (. ]FABCIFBS$V_RU_RLK) F 
3; 1965 2026 4 : 
3; 1966 2027 4 - IFABCIFB$V_RUPJ) : 
: 1967 $9 8 3 THEN | : 
3: 1968 029 3 RETURN .STATUS; F 
; 1969 2030 'é- 3 
: 1970 2031 2 END; ! of block defining local STATUS 3 
3: 1971 sass : 
; 1376 03 EEGIN 3 
3: 197 2034 5 
3 1974 2035 ~OCAL 3 
: 1975 soRs STATUS; 3 
3; 1976 037 3 
3; 1977 2038 4 BEGIN 3 
3 Hb 44 | Spi 4 3 
3; 197 40 4 ABEL 3 
; 1980 041 4 OK_WAT; ; 
3: 1981 ok 4 ; ; 3 
: 4 0435 4 ! Flag no special action needed for unlocking the RP : 
3; 198 044 4 ‘ 3 
3: 1984 045 4 AP = 0; 3 
3; 1985 Beg 4 3 
3; 1986 047 4 ‘ ! 3 
3 +s 4 bs ? only query_lock the record if: : 
: 1989 50 4 : 1. The user has specified no locking ( NLK ) and is not in a Recovery : 
; 1990 051 4 ‘ Unit. 3 
3; 1991 052 4 : ; 


————_—_—  - 
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v04- GET_RECORD 1228671 382 93:88: 4 DLEKSVMSMASTER SEAMS. SRCIRM3GET..B32;1 . (4) 
; 139% 053 4 ! 2. The file is opened for read ( not WRTACC ) 
: bad, 8 ¢ 2 } and the user has not specified read-only locking ( not REA ) 
; 1995 0 $ if (RABLRABSV NLK} 
; 1997 086 NOT .1FABLIFBSV_RUP) 
: 1999 060 4 OR 
; 2000 061 ( (NOT .IFABCIFBSV_WRTACC]) 
; 2001 o6¢ AND 
; 008 63 ; ca (NOT .RABCRABSV_REA]) ) 
: 094 be? ? ——- = RMSQUERY_LCK (.IRABCIRBSL_NEXT_VBNJ, .IRABCIRB$W_NEXT_IDJ) 
: 006 067 4 STATUS = RMSLOCK (.IRABCIRBSL_NEXT_VBNJ, .IRABCIRBSW_NEXT_IDJ); 
; 200 068 4 
; 2008 069 4 
; 2009 070 4 ! OK_WAT success status means we had to wait for someone else to unlock the 
; spi9 071 4 : record. To wait, we deaccessed the bucket. Therefore, we must reaccess 
; 2011 344 4 ! it, and we can use the record pointer information for this. Deaccessing 
3 sole 2073 4 ! the bucket also means that our NRP context updating information in the 
; sole $ooe ?  IRAB cannot Longer be considered to be valid. 
: 2015 2076 5 iF .STATUS EQL RMSSUC(OK_WAT) 
; 2016 077 4 THEN 
; 2017 2078 4 OK_WAT: 
; 2018 2079 5 BEGIN 
3; 2019 2080 5 
; 2020 2081 5§ LOCAL 
; $053 2088 2 TEMP_STATUS; 
: $058 084 5 ! Reposition to the record using record pointer contents. If it is 
: 2024 2085 5 ! possible that some reclamation maybe done make sure the primary data 
: $ose sone 2 ucket is exclusively accessed. 
; 2037 2088 3 if .1FABLIFBSV_WRTACC) 
; 2029 $090 . IFABCIFB$SV_RUJ 
; 2030 2091 5 H 
; 2031 2092 3 IRABLIRBS$B_CACHEFLGS] = CSHSM_LOCK; 
; $038 $094 6 IF NOT (TEMP_STATUS = RMSFIND_BY_RRV (.IRABLIRBSL_NEXT_VBNI, | 
> 2034 2095 6 . IRABLIRBS$WNEXT—1DJ, 
; 2035 096 2 0)) 
5 O38 097 THEN 
; ORE 94 : STATUS = .TEMP_STATUS; 
; 2039 100 5 ! If RMS after re-pge rt santas to the record finds that it had been 
3 rk 101 5 ! deleted within a Recovery Unit, then RMS will have to re-position 
3 2041 Ht) 5 ! after deleting the record for good if it has write access to the 
; ok 103 5 ' file. 
; 204 104 5 : 
3: 2044 105 : IF .STATUS 
3 2045 196 N 
; 046 107 5 -REC_ADDRCIRC$V_RU_DELETE) 
3; 204 108 : N 
; 2048 109 LEAVE OK_WAT; 
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IF _ .STATUS 
THEN 


: If our key of reference is the primary key, then we can reclaim 
! our NRP updating information from the primary data bucket's 
VBN and the record ID. 


IF _(.1DX_DFNCIDX$B_KEYREF] EQL 0) 
THEN 


VBN) = BOL OCKE , JRABT I ROSL CURSOS. BDBSL_VBN); 
1D) IRC$_ID(REC_ADDR) ; 


If the key of reference is not the primary key, then RMS has no 
easy way to reclaim the NRP List updating information which is 
for the SIDR bucket (long since released) and not the yet: 
data bucket. Since the stream which has the record locked might 


! 
i 
i 
! delete the SIDR array positioned to but not the primary data 
! record itself (by means of an SUPDATE), RMS must re-position 
! in order to guarentee that the key of the SIDR array it 
! positions to is actually represented in the primary data record 
' to be returned. The alternate success status, and the fact that 
: the key of reference is other than the primary will force another 
! attempt to access the primary data bucket after accessing the 
necessary SIDR, and to lock the next record. 
ELSE 
BEGIN 
GLOBAL REGISTER 
R_BDB_STR; 
RELEASE (IRABCIRBSL_CURBDB) ; | 
ELSE | 
IRABCIRB$L_CURBDB) = 0; 
END; 


If RMS finds that the current record has been modified within a Recovery 
Unit, then subject it to further processing before deciding whether to 
return it as the non-deleted primary data record to be returned to the 
user, or whether to return a status to force RMS to re-position. 
F STATUS 
- JRABCIRBSL _CURBDB) NEQU 0 
(REC ADORE IRCSV_AU_DELETE) 


-REC_ADDRCIRC$V_RU_UPDATE]) 


ee ee 


THEN 
BEGIN 


LOCAL 
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K 6 
1o~300= 138% 94:89: 9 VAX-11 Bliss- 
GET_RECORD 14-Sep-1984 13:01:24 DISKSVMSMASTE 
RECORD_ID : WORD; 
RECORD_ID = .REC_ADDRCIRC$W_1D]; 


If the file has been open for write access, then attempt to delete 
the record if it was deleted within a Recovery Unit, or re-format 
the record if it was updated within a Recovery Unit. 


' 
i 
' 
if .1FABCIFBSV_WRTACC) | 
THEN 
RMSRU_RECLAIM(); 


: If the record had been deleted within a Recovery Umit, then RMS will 

! not return this record to the user as a non-deleted primary data 

! record. Therefore, release the primary data bucket, and change the 
i return status to 6 if RMS did not have to wait for the recor lock, or 
! change the return status to RMS$_DEL if RMS had to wait for th 

! record lock. Returning a status of RMS$_DEL in the Latter case will 

: allow the information that RMS had to wait for a record lock to 

eventually be returned to the user along with the non-deleted primary 
! 

IF 
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data record when such a record is eventually found. 
+RECORD_1D NEQU .REC_ADDRCIRC$W_IDJ | 
THENRE C-ADOREIRCSV_RU_DELETE] 
BEGIN 
GLOBAL REGISTER 
R_BDB : 


O09 09 09 09 09 C9 09 09 09 09 SINISE NII Oe 


RELEASE (IRABCIRBSL_CURBDB)); | 
If STATUS<O, 16> EQLU RMSSUC(OK_WAT) | 


STATUS = RMSERR(DEL) 
ELSE 

STATUS = 0; 
ND; 


| 
| 
END; 
| 


Return here if QUERY_LCK. 
iF (RABCRABSV NLK 
“ NOT .JFABCIFB$V_RUP)) | 
(NOT  IFABCIFBSV_WRTACCI 
NOT .RABCRABSV_REA)) 
THEN 
RETURN .STATUS; 
END; 


' If UNLOCK_RP was set coming here, it can only mean that this was a 
! reaccessing of a previously automatically locked record that was not 
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DISKSVMSMASTER: CRMS.SRCJRM3GET.832;1 (4 
! unlocked at the beginning of this operation to avoid a locking window. 
It will get an ok_alk status (not suc) from rm$lock. It wants to release 
the current record on potential buffer errors. The case where we don't 
want to release the now current record lock is if the status from rm$lock 
was rms$_ok_alk (i.e., not suc) which meant that it had been previousl 
manually locked, and should remain that way even if this operation fails. 
4 JESTBETCCCIRABEIRSSY_UMLOCK RPI) 
IF .STATUS<O,16> EQLU RMSSUC() 
-STATUS<0,16> EQLU RMSSUC(OK_WAT) 
»STATUS<0,16> EQLU RMSSUC(OK_RULK) 


P= 1 
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' 
' 
i 
I 
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A 
ELSE 


' 3f it is necessary for us to release the record lock set 

! IRBSV_UNLOCK_RP. It will only be necessary to release the record 
' Lock 7m some circumstances when we have had to stall waiting for 
' it, and whenever RMS has managed to position to a record that was 
i deleted within a Recovery Unit. In the former case if after 

! merece for the lock, we have some problem reaccessing the bucket, 
: or we find that the record is deleted while we were waiting, then 
' we must release the record lock. If we are ene by means 

! of an alternate ner and we have had to stall waiting for the 
record lock, and this is an operation where the NRP List must be 
i] 

' 
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' updated ! operation but a nonrandom $FIND), then the record 
' Lock must als 


o be released. 
EGIN | 
IF (-TRABCIRBSL_CURBDB] EOL 0) 
(.STATUS<0,16> NEQ RMSERR(RLK)) | 
"  RABCIRBSV_UNLOCK_RP) =1; | 
RETURN .STATUS; | 
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ELSE 
AP = 1; 


IF NOT .RABCRABSV_ULK] 
IRABLIRBS$V_UNLOCK_RP) = 1; 
RETURN . STATUS; 


END ! of local block defining STATUS 
END; ! of routine 
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; Routine Size: 1074 bytes, Routine Base: RMSRMS3 + 032D 


3; 2215 2276 1 END ' of modul 
i 22l8 3377 i og | 
3; 2217 2276 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
:  RMSRMS3 1887 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) | 
3 Library Statistics 
i eet ks Oe oe, Eee | aw Symbols -------- Pages Processing | 
3 File Total Loaded Percent Mapped Time 
: _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 140 4 154 00:00.4 
; COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RM3GET/OBJ=OBJ$:RM3GET MSRC$:RM3GET/UPDATE=(ENHS$:RM3GET) 
: Sizes ner © code + 0 data bytes 

un Time oye ; 
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; Lines/CPU Min: 13899 

; Lexemes/CPU-Min: 17154 

; Used: 399 pages 
; Compilation Complete 
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